---

Hallo Leute,

VBA macht mal wieder nur die Hälfte...

Ich habe einen Beschriftungsblock erstellt und mit Wblock rausgespeichert.
Diesen Block will ich nun über VBA in eine andere Zeichnung einfügen.

Code:

---

Dim levelblock As String
levelblock = "C:\DWG\seLevelSymb.dwg"
Dim blo As AcadBlockReference
xpoint = ThisDrawing.Utility.GetPoint(, "Platzierungspunkt wählen")
Set blo = ThisDrawing.ModelSpace.InsertBlock(xpoint, levelblock, 1, 1, 1, 0)

---

Nach dieser Aktion habe ich aber einen NICHT-Beschriftungsblock drin.

Füge ich den Block von Hand z.B. mit _-insert ein, bekomm ich nen Beschriftungsblock.

Wie bekomm ich den Block rein sodass er auch ein Beschriftungsblock ist?
Oder: Kann ich die Eigenschaft nachträglich per VBA einschalten?

Bitte helft mir!

------------------
Gruß Andreas

------------------------------------------------------------------------------------------------------------------------------------
Die Antwort ist 42! Die Antwort ist 42! Die Antwort ist 42! ...wenn ich nur die Frage wüsste...

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

---

Ja, ich glaube das ist ein Problem/BUG.
Umgehen könnte man es wohl mit Sendcommand/Insert

siehe auch http://through-the-interface.typepad.com/through_the_interface/2007/04/making_autoc ad_.html
Ansonsten könnte man VB.net (siehr Beispiel von Roland) benutzen http://discussion.autodesk.com/forums/thread.jspa?threadID=712036

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

[Diese Nachricht wurde von CAD-Huebner am 25. Jul. 2009 editiert.]

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

---

Danke Udo,

ich habe den Workaround mit Sendcommand gewählt.

Block einfügen auf 0,0 gefolgt von Löschen Letzes.

Dadurch ist die Blockdefinition incl. Beschriftung drin und ich kann den Block per VBA einfügen ohne dass die Beschriftungsfunktionalität flöten geht.

------------------
Gruß Andreas

------------------------------------------------------------------------------------------------------------------------------------
Die Antwort ist 42! Die Antwort ist 42! Die Antwort ist 42! ...wenn ich nur die Frage wüsste...

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