| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| | |
 | NVIDIA GTC Paris und ISC High Performance-Konferenz 2025, eine Pressemitteilung
|
|
Autor
|
Thema: Objekte auflisten (1423 mal gelesen)
|
Heron83
Mitglied
Automatiker
   Beiträge: 11
Registriert: 22.10.2003 Auto CAD 2002, VBA, IBM 800MHz, 512MB Ram
|
erstellt am: 28. Okt. 2003 13:03  <-- editieren / zitieren -->   Unities abgeben:          
Hallo Zusammen Wie kann ich die Vorhandenen Blöcke ind meiner Zeichnung in VBA Anzeigen. Ich möchte eine IF Selektion machen, wenn der Block schon vorhanden ist soll mein Programm diesen einfügen, ansonsten soll mein Programm einen neuen erzeugen. Also wie kann ich diese Anweisung machen? Bin gespannt auf eure Antworten und danke schon mal im Vorraus.
------------------
Gruss Kai Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
RoSiNiNo
Mitglied
Konstrukteur
Beiträge: 1126
Registriert: 09.10.2002 Acad 2011-deutsch, Express Tools
3ds Max 2010
Win 7-Professional
HP Workstation Z400, 6GB
GeForce GTX 470
|
erstellt am: 28. Okt. 2003 15:45 <-- editieren / zitieren --> Unities abgeben: Nur für Heron83 
Code:
Public Function BlockInDrawing(BlockName)
Dim BlCheck As AcadBlock
On Error Resume Next
Set BlCheck = ThisDrawing.Blocks(BlockName)
If Err Then
BlockInDrawing = False
Else
BlockInDrawing = True
End If
Set BlCheck = Nothing
End Function
------------------
Roland Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Heron83
Mitglied
Automatiker
Beiträge: 11
Registriert: 22.10.2003 Auto CAD 2002, VBA, IBM 800MHz, 512MB Ram
|
erstellt am: 29. Okt. 2003 09:12 <-- editieren / zitieren --> Unities abgeben:
|
Foren auf CAD.de
| 
