---

Hallo,

ich will von einer VB .exe auf Autocad zugreifen um in der aktuellen Zeichnung ein Atribut zu erstellen (attdef).

versucht hatte ich es mit :

Code:

---

Dim height As Double
Dim Point(0-2) As Double

Set ThisDrawing = autocad.Application.ActiveDocument

    Point(0) = 0
    Point(1) = -5
    Point(2) = 0

    height = 2

Set AcadAttribute = ThisDrawing.ModelSpace.AddAttribute(height, acAttributeModePreset, "", Point, "NO_ATT", "1")
    AcadAttribute.Update

---

Allerdings konnte ich nicht herrausfinden wie ich extern auf AcadAttribute zugreifen kann.

Bin noch nicht so fit was VB angeht, deswegen wäre ich über jede Hilfe dankbar.

Max

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

---

Hallo Max,

also in VB (6?) musst du erst das AutoCAD Objekt "holen".
Mit GetObject kannst du auf eine laufende Instanz von AutoCAD zugreifen. Im Beispiel entspricht dann AcadDoc dem Objekt Thisdrawing in VBA.
Attribute werden sinnvollerweise an Blöcke gehängt. Im Beispiel wird ein Attribut(definition) an die Blockdefinition angehängt.
Ist ein Block bereits eingefügt, kannst du mit HasAttributtes abfragen ob dieser Block ein angehängtes Attribut hat.

Code:

---

Sub Block_Att()
    ' AutoCAD als Verweis einbinden
    Dim AcadApp As AcadApplication
    Dim AcadDoc As AcadDocument
    Dim BlockDef As AcadBlock
    Dim Kreis As AcadCircle
    Dim InsPkt(0 To 2) As Double
    Dim Attr As AcadAttribute
   
    Set AcadApp = GetObject(, "AutoCAD.Application")
    Set AcadDoc = AcadApp.ActiveDocument
   
    Set BlockDef = AcadDoc.Blocks.Add(InsPkt, "NeuerBlock")
    Set Kreis = BlockDef.AddCircle(InsPkt, 10)
    Kreis.color = acByBlock
   
    Set Attr = BlockDef.AddAttribute(2.5, acAttributeModeNormal, "Eingabe: ", InsPkt, "FeldEingabe", "")

End Sub

---

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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

---

Hallo,

vielen Dank für die schnelle Hilfe,
Deklarationsfehler mit ThisDrawing...

Jetzt funktionierts wie geplant.

Gruß Max

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