---

ich habe mir eine Block definiert

Dim oBlock as AcadBlock

und eine dazugehörige Blockreferenz

Dim oBlockRed as AcadBlockReference

diesem Block kann ich ja mit

oBlock.AddLine StartPkt, EndPkt

eine Linie hinzufügen - kein Problem.

was mach ich aber, wenn ich eine Linie erst zeichnen und dann in den Block aufnehmen will?
ein "oBlock.AddAcadLine" gibt es ja nicht.
wie kann ich eine gezeichnete Linie nun dem Block hinzufügen?

nochmal mein Quelltext:

Dim oBlock as AcadBlock
Dim oBlockRef as AcadBlockreference
Dim oline as AcadLine
Dim StartPkt, EndPkt, as double

Set oline = ThisDrawing.ModelSpace.AddLine(StartPkt, EndPkt)

..und jetzt sollte "oBlock.nimm-oline-jetzt-in-Block-auf" kommen,
es gibt aber nur "oBlock.AddLine StartPkt, EndPkt"

kann mir da jemand bei diesem Problem weiterhelfen?

------------------

http://www.stupidedia.org/stupi/Rechter_Winkel

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

---

... Methode  copyobjects des Documents  verwenden und den Block als neuen Owner angeben ... evtl. mußt du noch Koordinaten transformieren

------------------
      - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Danke für den Tip, leider klappt das irgendwie nicht so ganz.
Das Problem liegt bei mir hier

Dim oEntity as Object
Dim opline as ACADLWPolyline
Dim oApp as Object
Set oApp = ThisDrawing.Application
Dim oDoc as AcadDocument
Set oDoc = oApp.ActiveDocument
Dim oBlock as ACADBlock
[...]
Set opline = ThisDrawing.ModelSpace.AddLightWeightPolyline(dblVertices)
oEntity = opline
oDoc.CopyObjects oEntity, oBlock
[...]

"oEntity = opline" liefert einen Syntaxfehler

mir fällt aber beim besten Willen nichts ein, wie ich die LWPolylinie dem Object zuweisen soll, hast du da noch eine Hilfestellung für mich?

------------------

http://www.stupidedia.org/stupi/Rechter_Winkel

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

---

laut F1 erwartet copyobjekts auch kein Objekt sondern ein Feld ...

also

Dim objCollection(0 To 0) As Object
Dim retObjects As Variant
...
Set objCollection(0) = oPLine
...
retObjects = oDoc.CopyObjects(objCollection)
..

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

bzw. wenn ich varObjects einem Block hinzufügen möchte:
retObjects) = oDoc.CopyObjects(objCollection, oBlock)

herzlichen Dank! 

------------------

http://www.stupidedia.org/stupi/Rechter_Winkel

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