---

Hallo,
hat jemmand nen kurzen Quellcode(oder Link) um Teilereferenzen(_ampartref) zu finden/auslesen/bearbeiten?

Versuche eine Routine zum erstellen von Teileverzeichnissen zu erstellen.
Das einzige was mir fehlt, ist die Funktion um alle Teilereferenzpunkte in einer Zeichnung zu finden und die Positionsnummer/Bezeichnung zu lesen.

Danke und noch ein schönes WE euch  :-)

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

---

Wie ist es mit /sample/mechanical/VBA/partref.dvb ?

------------------
  - 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

---

Ist das was ich gesucht habe, aber für mich relativ kompliziert aufgebaut. Sind mehr Funktionen drin als gewünscht.
Was ich erstellen will ist sowas.

Durchsuche alle Objekte nach "Teilereferenz"
    xPos = Teilereferenz(NAME)
    xBeschreibung = Teilereferenz(DESC)
    usw.
Durchsuchen Ende

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

---

Gehts um das "Wie wirds gemacht?" oder um "Wer machts?" 

------------------
  - 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

---

Der Tip ging schon in die richtige Richtung.
Will nur wissen wie man am schnellsten an die Eigenschaften von Teilreferenzen dran kommt.
Dachte, vielleicht hat es jemand schon mal gemacht.

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

---

AutoCAD-VBA.JPG

Um nochmal auf das Thema zu kommen.
Hat keiner ne Idee, wie ich an diese Werte(siehe Anhang) dran komme?
Zur Laufzeit werden die Variablen belegt, aber wie komme ich nur an die Werte dran?

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

---

Hallo,

irgendwie hast du doch Objekte in deiner Collection.

Mal ungetestet, sollte aber gehen

Code:

---

for each BlockColItem in BlockCol
    ' Variant Array lesen
    varDATA = BlockColItem.Data
    ' für jedes Element in diesem Array
    for i= lbound(varData) to Ubound(varData)
        varDataItem = varDATA(i)
        debug.print  varDataItem(0)
        debug.print  varDataItem(1)
    next i
next

---

Wilfried Stelberg

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

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

---

Suuuuuper....

Vielen Dank Wilfried !!! (Punkte sind unterwegs)
Jetz hab ich es...
Habe deinen Code ein wenig geändert, jetzt läuft es wie gewünscht.

Code:

---

Public Sub findRefPoints()
    Dim BlockCol As Collection, Objekt As Object, maxRef As Single: maxRef = 0
    Set BlockCol = New Collection
   
    For Each Objekt In ThisDrawing.ModelSpace  'In Excel muss "Thisdrawing" durch "ActiveDocument" ersetzt werden
        If Objekt.ObjectName = "AcmPartRef" Then
            BlockCol.Add Objekt
            maxRef = maxRef + 1 'Anzahl aller RefPunkte
           
'#################################################################################################
        For Each BlockColItem In BlockCol
            varDATA = BlockColItem.Data
                varDataItem = varDATA
                Werkstoff = varDataItem(1, 1)
                Bezeichnung = varDataItem(2, 1)
                Nummer = varDataItem(3, 1)
                Norm = varDataItem(4, 1)
        Next
        MsgBox Nummer & ", " & Bezeichnung & ", " & Werkstoff & ", " & Norm
           
        End If
    Next
End Sub

---

[Diese Nachricht wurde von insidERR am 03. Jul. 2009 editiert.]

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