---

Hallo zusammen,

ich befasse mich seit 3 Tagen mit ACAD VBA und
hab noch ordentlich Schwierigkeiten damit.
Vielleicht könnte mir jemand bei der Bewältigung
meines/r Problems/e helfen?

Ich möchte gerne einen vorhandenen Block mit VB (u.a. mit Attributen)
in eine Datei einfügen und anschließend sämtliche mit meinen
Variablen die Attribute ausfüllen.

Wie man zu den Attributen kommt weiß ich (glaube ich zumindest).
Code:

Dim Var as Integer
Dim elem As Object
Dim blkdef As AcadBlock


Set blkdef = ThisDrawing.Blocks.Item("SCHRIFTKOPF_NEU")
For i = 0 To blkdef.Count
Set elem = blkdef.Item(i)
Var = StrComp(elem.EntityName, "AcDbAttributeDefinition")
Next i

Ich würde mich sehr über eine Hilfestellung/Anregung/etc. freuen.

Grüße Martin

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

---

kannst du es genauer beschreiben ?

wenn du eine "externe" dwg datei einfügen willst, wird somit zum Block, (bitte mich nicht gleich zur sau machen, es ist ja in Wahrheit viel komplizierter) dann schau mal:

ThisDrawing.Import importFile, InsertPoint, scalefactor

, ansonsten:

ThisDrawing.ModelSpace.InsertBlock(insertionPnt, "BLOCKNAME", 1#, 1#, 1#, 0)

------------------
MfG Proxy

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

---

Eigenschaften_Attribut_Text.JPG

Danke Proxy, das einfügen funktioniert jetzt!

Hier ist ein Teil von meinem Programm:

Private Sub cmd_testFile_Click()
   
    Dim insPnt(2) As Double
    Dim blkSK, blkEL, temp
    Dim i, k As Integer
   
    insPnt(0) = 0
    insPnt(1) = 0
    insPnt(2) = 0
   
    Set blkSK = ThisDrawing.ModelSpace.InsertBlock(insPnt, BlockName, 1#, 1#, 1#, 0)
    Set blkSK = ThisDrawing.Blocks.Item(BlockName)  '**????**'
   
    k = 0
    For i = 0 To blkSK.Count - 1 Step 1
        Set blkEL = blkSK.Item(i)
        If StrComp(blkEL.EntityName, "AcDbAttributeDefinition") = 0 Then _
            k = k + 1
    Next i
    MsgBox k
   
End Sub

Dieses Programm fügt einen Block ein.
Warum erhalte ich einen Fehler, wenn ich **???**-Zeile weglasse?

Entspricht "EntityName" dem Datentyp eines Items im Block?

Ich kann mit dieser Funktion (siehe Code) herausfinden, ob
ein Item ein Attribut ist oder nicht.
Gibt es eine bessere Variante?

Wie kann ich auf "Bezeichnung", "Eingabeaufforderung" und
"Wert" zugreifen? (Siehe Anhang)

Ich möchte, dass dann in meiner Zeichnung der Text der
einzelnen Variablen zu sehen ist.
Kann man überhaupt "Attribute" dahingehend bearbeiten,
oder muss ich sie durch Textfelder ersetzen?

MfG Martin

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