| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| | |
 | Jetzt verfügbar: NVIDIA RTX PRO 6000 Blackwell Server Edition, eine Pressemitteilung
|
|
Autor
|
Thema: Refedit-Befehl in VBA (1261 mal gelesen)
|
Hänk
Mitglied
   Beiträge: 126
Registriert: 10.05.2004 AutoCAD 2005
|
erstellt am: 13. Jul. 2006 15:40  <-- editieren / zitieren -->   Unities abgeben:          
Hi zusammen Kann ich in VBA auf den Inhalt eines Blocks zugreifen um etwas zu verändern (Objekte löschen) ohne ihn dabei aufzulösen? Also im Prinzip der REFEDIT-Befehl. Vielen DAnk für die Hilfe Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Carsten1210
Mitglied
staatl. geprüfter Holztechniker
Beiträge: 1362
Registriert: 24.07.2002
|
erstellt am: 13. Jul. 2006 16:08 <-- editieren / zitieren --> Unities abgeben: Nur für Hänk 
Hallo Hänk, Du kannst auf die einzelnen Elemente des Blocks folgendermaßen zugreifen: Public Sub Testblock()
Dim block As AcadBlock
Dim Object As AcadObject
Dim Ausgabe As String
Dim Pickedpoint As Variant
On Local Error Resume Next
Ausgabe = "Objekt wählen:"
ThisDrawing.Utility.GetEntity Object, Pickedpoint, Ausgabe
Set block = ThisDrawing.Blocks(Object.Name)
block.Item(1).Delete
End Sub Die Frage ist nur, wie du an das zu löschende Element kommst. Was macht dein Problem(Hier) mit dem Drucken?! Gruß, Carsten [Diese Nachricht wurde von Carsten1210 am 13. Jul. 2006 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Hänk
Mitglied
Beiträge: 126
Registriert: 10.05.2004 AutoCAD 2005
|
erstellt am: 14. Jul. 2006 07:28 <-- editieren / zitieren --> Unities abgeben:
Hallo Vielen Dank, das werde ich heute mal probieren. Die Auswahl dazu müsste eigentlich mit einem SelectionSet gemacht werden können oder? Beim anderen angesprochenen Fall lags nicht an der Variable sondern um einen Syntaxfehler im Code. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| |
Carsten1210
Mitglied
staatl. geprüfter Holztechniker
Beiträge: 1362
Registriert: 24.07.2002
|
erstellt am: 14. Jul. 2006 11:37 <-- editieren / zitieren --> Unities abgeben: Nur für Hänk
Hallo Hänk, Du erhälst ja unter Auflistung Block.Item(...) alle Elemente des Blocks. Entweder du kennst die Item-Nummer und löscht darüber das Element, oder du fragst bestimmte Bedingungen ab (Was bessser wäre). Ein Selection brauchst du dafür aber nicht, da du die Elemente ja schon hast. Gruß, Carsten Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Foren auf CAD.de
| 
