---

Hallo zusammen,

ich möchte gerne einen Block per VBA einfügen.

Dim blockRefObj As AcadBlockReference
returnPnt = ThisDrawing.Utility.GetPoint(, "Enter a point: ")
Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock (returnPnt, "C:\Block.dwg", 1#, 1#, 1#, 0)

Mit obigen Ccode klappts ja auch, aber ich würde
gerne bei der Wahl des Einfügepunktes den Block am Mauszeiger
hängen haben, wie es mit den normalen Autocad Befehl "insert" auch ist.

Hatte schon überlegt
1. Block einfügen
2. Block verschieben
aber dann ist ja immer die Verschiebelinie sichtbar

Auch mit ThisDrawing.SendCommand hatte ich probiert,
aber ich muss ja den Einfügepunkt zuerst wählen und dann
die anderen Abfragen noch abfangen.

Hat jemand einen Tipp

------------------
Gruß Jörn

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

---

Hallo zusammen,

nur mal zur Info,
habe eine Lösung mit sendcommand gefunden
Der Trick ist die Skalierung und Drehung vor dem
Einfügepunkt anzugeben.

Das eingefügte Objekt kann man dann mit dem
Event Objektadded abfangen

------------------
Gruß Jörn

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