---

Hallo,

Mit Hilfe des SendCommand-Befehl kann man bekanntlich alle AutoCAD-Befehle auch von VBA aus starten. Ich möchte z.B. den kopieren-Befehl leicht modifziert einsetzen, indem ich mittels des besagten Befehls den kopier-Befehl an AutoCAD übergebe und ihn damit "anstoße". Jetzt soll der Nutzer die entsprechenden Objekte auswählen und dann möchte ich allerdings den weiteren Befehlsverlauf wieder an VBA zurückgeben und über ein Formular beispielsweise ihn auswählen lassen, ob er Mehrfachkopien wünscht, die dann das Ergebnis und den weiteren Befehlsverlauf wieder von AutoCAD ausführen lassen. Dieses hin und her zwischen AutoCAD und VBA-Formular kriege ich nicht hin. Wer weiß Rat?

Gruß

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

---

Hallo Hain!

Wahrscheinlich hast Du bereits ne Lösung gefunden, aber trotzdem.
Ich habe soetwas über "UserForm.Hide" und "UserForm.Show" gelöst.

Nach dem anklicken eines CommandButton wechsel ich aus der UserForm (Dialogbox) in den AutoCAD Zeichnungsbereich um dort Objekte auszuwählen.
Über UserForm.Show kommt man zur Dialogbox zurück.

Kleines Beispiel aus dem Bereich Objektauswahl und speichern unter:

Private Sub cmd2_Click()
Dim objDxf As AcadSelectionSet
Dim strTempName As String
Dim strTempPath As String
Dim strFilename As String
Dim objExportFile As AcadDocument
UserForm1.Hide

Select Case Cbo.ListIndex

Case 0  'Abspeichern des WBloks unter R 18.dxf

strTempPath = tbo.Text & "\" & tbo1.Text
strFilename = RemoveExtension(ThisDrawing.name)
Set objDxf = ThisDrawing.SelectionSets.Add("dxfcnc"): objDxf.SelectOnScreen
ThisDrawing.Wblock strTempPath, objDxf
Set objExportFile = ThisDrawing.Application.Documents.Open(strTempPath)
With objExportFile
.SaveAs ThisDrawing.path & "\" & tbo1.Text, acR18_dxf
.Close
End With
Kill strTempPath & ".dwg"
strTempPath = RemoveExtension(strTempPath)
objDxf.Delete
Set objDxf = Nothing
Set objExportFile = Nothing
UserForm1.Show

Case 1  'Abspeichern des WBloks unter R 12.dxf
...
...

Ich hoffe es hilft.

Gruß

Dirk

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