Hot News:

Mit Unterstützung durch:

   Foren auf CAD.de
  AutoCAD VBA
  Makro ausführen und neue Zeichnung öffnen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:
Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
  
PNY: der unverzichtbare Partner für umfassende KI-Lösungen von Workstations bis zu Edge Computing und KI-Cluster-Bereitstellung, eine Pressemitteilung
Autor Thema:  Makro ausführen und neue Zeichnung öffnen (1928 mal gelesen)
The VIP
Mitglied
Technischer Zeichner


Sehen Sie sich das Profil von The VIP an!   Senden Sie eine Private Message an The VIP  Schreiben Sie einen Gästebucheintrag für The VIP

Beiträge: 170
Registriert: 06.09.2002

AutoCAD Mechanical 6 unter Windows XP

erstellt am: 27. Jul. 2004 17:47    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities
Hallo.

Ich hab eine Eingabemaske mit Textfeld. Der User gibt ein Maß in Millimeter ein und klickt OK.

Danach zeichnet das Makro ein Quadrat mit der entspechenden Seitenlänge.

Ich hätte nun gerne, dass das Makro danach eine neue Zeichnung öffnet (*.dwt ist vorhanden) und danach einen Kreis mit dem entsprechenden Durchmesser aus der Eingabemaske zeichnet.

Die Frage stellt sich mir zunächst, ob ich ein Makro  zeichnungsübergreifend ablaufen lassen kann (-> Makro zeichnet, öffnet neue DWG und zeichnet erneut mit den Angaben aus der Eingabemaske).

Der Befehl für eine neue Zeichnung öffnen ist mir auch noch unbekannt (konnte über die Hilfe nichts finden).

Können mir da die Experten einen Tipp geben? 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Marco Lorenz
Mitglied
Softwareentwickler, freier Inventor & AutoCAD Händler


Sehen Sie sich das Profil von Marco Lorenz an!   Senden Sie eine Private Message an Marco Lorenz  Schreiben Sie einen Gästebucheintrag für Marco Lorenz

Beiträge: 59
Registriert: 18.09.2001

Win NT,2k,XP Pro
Acad+Mechanical2k-2005,
Inventor 5-9

erstellt am: 27. Jul. 2004 18:34    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für The VIP 10 Unities + Antwort hilfreich
Ja, das geht schon Dokumetübergreifend.

Machs so:

Sub Test_New_Drawing()
Dim New_Document As AcadDocument, TemplateName As String
TemplateName = "C:\Programme\Autodesk\MDTMechanical Desktop 2004 DX\acadm\Template\acadiso.dwt"
Set New_Document = Documents.Add(TemplateName)
New_Document.SaveAs ("C:\Test.dwg")
End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige:Infos zum Werbeplatz >>

AVC Expose Assemblies CAD APP für Messestände, Möbel, Allgemeine Werkzeuge

Plugin for AutoCAD and BricsCAD AVC_Expose. Expose all blocks-assemblies in a row. Explosion of all assemblies (TNT). Sign the name and number of blocks.

The VIP
Mitglied
Technischer Zeichner


Sehen Sie sich das Profil von The VIP an!   Senden Sie eine Private Message an The VIP  Schreiben Sie einen Gästebucheintrag für The VIP

Beiträge: 170
Registriert: 06.09.2002

AutoCAD Mechanical 6 unter Windows XP

erstellt am: 28. Jul. 2004 13:12    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities
perfekt. Danke!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!
Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2025 CAD.de | Impressum | Datenschutz