---

Hallo,
folgendes Problem: ich möchte in einer AutoCAD-Zeichnung mit diversen Blöcken einen bestimmten Block einfügen, den ich je nach Bedarf mit einem oder mehreren Attributen versehen kann. Jetzt mein Problem: Ich habe einen Block mit Namen BLOCK-1 ohne Attribute. Diesen Block füge ich in eine Zeichnung ein und versehe diesen bei Bedarf mit einem oder mehreren Attributen.
Das Attribut soll aber nur an den ausgewählten Block z.B. BLOCK-1 angehängt werden. Wenn ich den Block BLOCK-1 nochmals in die Zeichnung einfüge, soll er wieder ohne Attribut eingefügt werden. Auch alle anderen Blöcke dieses Namens (BLOCK-1) sollten unverändert bleiben. So dass ich jedem eingefügten Block BLOCK-1 unterschiedliche Attribute anhängen kann.
Ist so etwas mit VB zu realisieren, wenn ja wie?

Vorab vielen Dank.

mfg

Wolfgang

[Diese Nachricht wurde von WolfgangSCH am 19. Aug. 2005 editiert.]

[Diese Nachricht wurde von WolfgangSCH am 19. Aug. 2005 editiert.]

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

---

Also mit Lisp ist das ohne Probleme möglich, zur Umsetzung in VBA kann ich aber nichts sagen.

------------------
Mit freundlichem Gruß

Udo Hübner

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

---

Dazu vielleicht auch noch einen Hinweis auf diesen Beitrag mit kontroversen MeinungenŽüber die Nutzung von unterschiedlichen Attributen an gleichnamigen Blockeinfügungen. http://ww3.cad.de/foren/ubb/Forum145/HTML/000269.shtml

------------------
Mit freundlichem Gruß

Udo Hübner

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

---

Man kann mit ActiveX keine Attributs-Referenzen erzeugen. Die bleibt nur der umgekehrte Weg: Attdefs an den Block, und die Attribs am Insert löschen. Erzeugen geht nur in Lisp mit entmake - und auch da nicht über vl-irgendwas.

Der zitierte Thread enthält übrigens eine Menge Quatsch - da warne ich mal vorsorglich.

Gruß, Axel Strube-Zettler

------------------
Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze

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

---

Hallo,

danke für Eure Antworten, welche ja nicht gerade Mut machen.
Aber ich werde Eure Tipps einmal ausprobieren und versuchen das Problem so in den Griff zu bekommen.

Gruß
Wolfgang

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

---

Hallo Wolfgang,

es gibt wohl einen Workaround:

1. Einen Dummyblock mit den zu vergebenden Attributen erzeugen
    ...
    Set obj_ACAD_Block = obj_ACAD_app.ActiveDocument.blocks.Add(InsPkt(), Blockname)
    Set obj_ACAD_Entity = obj_ACAD_Block.AddCircle(InsPkt(), 1)
    ....

2. Diesen Block an die Position des Blockes dem die Attributte
angehängt werden sollen einfügen.
    ....
      Select Case acad_TYP
      Case 14
            Set DummyBlock = obj_ACAD_app.ActiveDocument.ModelSpace.InsertBlock(InsPkt, Block, Skal_Y, Skal_X, Richtung)
      Case 15, 16, 17
            Set DummyBlock = obj_ACAD_app.ActiveDocument.ModelSpace.InsertBlock(InsPkt, Block, Skal_Y, Skal_X, 1, Richtung)
  ....

3. Eigenschaften wie Layer , Skalierung etc übertragen.
  dummyblock.Layer = alterBlock.Layer

4. Die Referenz des Dummyblockes auf den alten Block umbiegen
  dummyblock.name = alterBlock.name

5. Alten Block löschen

Erstaunlicherweiser hat der neue Block (der aber der alte ist)
die Attribute des Dummyblocks übernommen.
Die können dann mit

                If Dummyblock.HasAttributes Then
                    attributes = Dummyblock.GetAttributes

abgefragt werden.

Nicht schön, aber geht.

Gruß
Stelli1

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

---

Hallo Stelli1,

danke auch hier für Deine Hilfe!
Ich werde damit ein bichen experimentieren.

Gruß
Wolfgang

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