---

Hallo

Zuerst einmal, „tolles Forum“. Da hab ich denn letzten Tagen einiges gelernt.

Ich versuche Atrribute  eines Blocks von Acad nach Excel zu bringen. Die Acad gesteuerte Version funktioniert, nur möchte ich es Excel gesteuert machen. Ich kann den Plan aussuchen, und Block auswählen (gibt Block Name und Typ zurück) nur kommt bei .getattribites immer ein Fehler. Kann mir wer sagen wo mein Denkfehler ist? (vielleicht kommen einigen gewisse Bausteine bekannt vor).

Sub AttImp()
   
    Dim ACCAD As AcadApplication
    Dim ACBlock As AcadObject
    Dim ACPunkt As Variant
    Dim I As Integer
    Dim ACAttributes As Variant

   
    MsgBox "Plankopf aussuchen"
   
    Set ACCAD = GetObject(, "AutoCAD.Application")

    ACCAD.ActiveDocument.Utility.GetEntity ACBlock, ACPunkt, "Auswahl"
   

   
   
   
   
    MsgBox ACBlock.Name & ACBlock.ObjectName 'gibt Namen und Typ zurück / funktioniert
   
   
   
    ACAttributes = ACBlock.GetAttributes
   
  
   
    For I = LBound(ACAttributes) To UBound(ACAttributes)
    
        Cells(I, 1) = ACAttributes(I).TagString
        Cells(I, 2) = ACAttributes(I).TextString
   
    Next
   
   
   
End Sub

danke im voraus

Martin

[Diese Nachricht wurde von rabat am 18. Apr. 2011 editiert.]

[Diese Nachricht wurde von rabat am 18. Apr. 2011 editiert.]

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

---

Hi,

herzlich willkommen bei CAD-de! 

Ich sehe im Code mal keinen Fehler, als solches würde ich darauf schliessen, dass entweder keine BlockReference angeklickt wurde (was gibt Deine MessageBox zurück?) oder die BlockReference hat keine Attribute.

Was gibt denn dieses zurück:

Code:

---

ACBlock.HasAttributes

---

- alfred -

------------------
www.hollaus.at

---

servus

danke für die Hilfe

ACBlock.HasAttributes = Wahr

das ganze AutoCAD gesteuert funktioniert beim gleichen Block

Martin

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

---

Hi,

dann wär jetzt noch (damit wir zumindest ähnliches nachstellen können) folgende Info wichtig:

a) Betriebssystem (insbesondere 32 oder 64bit)
b) AutoCAD-Version
c) Office-Version

Für Dich zwischendurch: Passiert gleiches, wenn Du Dein VBA-Makro z.B. auch von PowerPoint oder Word aus probierst?

- alfred -

------------------
www.hollaus.at

---

servus

Windows XP, Office 2010, Autocad 2010

in Word funktioniert es

in Excel hab ich folgendes eingefügt was funktioniert:

Dim Wo As String
   
    For I = LBound(ACAttributes) To UBound(ACAttributes)
        Wo = Wo & ACAttributes(I).TagString
    Next
       
    MsgBox Wo

der Fehler erscheint jetzt in folgender Zeilen

For I = LBound(ACAttributes) To UBound(ACAttributes)

        WKS.Cells(I, 1) = ACAttributes(I).TagString
        WKS.Cells(I, 2) = ACAttributes(I).TextString

    Next

Martin

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

---

Hallo

FEHLER gefunden und es funktioniert

  For I = LBound(ACAttributes) To UBound(ACAttributes) fängt bei 0 an und es gibt natürlich kein cell(0,1)

Martin

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

---

Hi,

beruhigend, muss ich nicht mehr suchen gehen; danke für die Rückmeldung. 

- alfred -

------------------
www.hollaus.at