| | | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte | | | | Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !, eine Pressemitteilung
|
Autor
|
Thema: Attribut an nur einen bestimmten Block anhängen (1867 mal gelesen)
|
WolfgangSCH Mitglied
Beiträge: 145 Registriert: 01.10.2002 AutoCAD 2021 64-bit Windows 10 64-bit Home Premium AMD Phenom II X6 1055T, 2,8GHz, 8GB RAM
|
erstellt am: 19. Aug. 2005 14:23 <-- editieren / zitieren --> Unities abgeben:
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 |
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9803 Registriert: 01.12.2003 AutoCAD 2.5 - 2022, LDD, MDT, RD, ADT, Civil Inventor AIP 4-11, 2008 -2022 Win 10
|
erstellt am: 19. Aug. 2005 15:44 <-- editieren / zitieren --> Unities abgeben: Nur für WolfgangSCH
|
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9803 Registriert: 01.12.2003 AutoCAD 2.5 - 2022, LDD, MDT, RD, ADT, Civil Inventor AIP 4-11, 2008 -2022 Win 10
|
erstellt am: 19. Aug. 2005 16:07 <-- editieren / zitieren --> Unities abgeben: Nur für WolfgangSCH
|
mapcar Mitglied CADmin
Beiträge: 1250 Registriert: 20.05.2002 Die Phönizier haben das Geld erfunden - aber warum so wenig? (Johann Nepomuk Nestroy)
|
erstellt am: 19. Aug. 2005 17:56 <-- editieren / zitieren --> Unities abgeben: Nur für WolfgangSCH
|
WolfgangSCH Mitglied
Beiträge: 145 Registriert: 01.10.2002
|
erstellt am: 23. Aug. 2005 08:01 <-- editieren / zitieren --> Unities abgeben:
|
Stelli1 Moderator Verm.-Ing.
Beiträge: 1526 Registriert: 17.08.2005 Map 2000-2014, Rasterdesign, MapGuide, Autodesk Topobase, VS6, VS.net 2013
|
erstellt am: 26. Aug. 2005 15:36 <-- editieren / zitieren --> Unities abgeben: Nur für WolfgangSCH
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 |
WolfgangSCH Mitglied
Beiträge: 145 Registriert: 01.10.2002
|
erstellt am: 01. Sep. 2005 16:52 <-- editieren / zitieren --> Unities abgeben:
|
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|