| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Schriftfeld löschen (5250 mal gelesen)
|
Steiner Dominik Mitglied Mechanical Engineer
Beiträge: 141 Registriert: 12.09.2007 Inventor 2008 SP1 Dell Precision PWS380 Intel(R) Pentium(R) CPU 3.20GHz 3.19GHz, 3,50GB RAM<P>Windows XP Pro Version 2002 SP2
|
erstellt am: 28. Mrz. 2008 09:46 <-- editieren / zitieren --> Unities abgeben:
Guten Morgen, Ich habe ein kurze Frage wie kann ich in eine Zeichnunge ei schriftfeld mittels Makro löschen, ich schaffe es das ich es aus dem Blatt lösche
Code:
If Not oSheet.TitleBlock Is Nothing Then oSheet.TitleBlock.Delete End If
nur ich möchte auch es auch aus den Ordner Schriftfeld löschen.
hat da jemand eine Idee. Danke Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
PaulSchuepbach Moderator Programmierer
Beiträge: 1005 Registriert: 01.10.2003
|
erstellt am: 28. Mrz. 2008 10:36 <-- editieren / zitieren --> Unities abgeben: Nur für Steiner Dominik
|
Steiner Dominik Mitglied Mechanical Engineer
Beiträge: 141 Registriert: 12.09.2007 Inventor 2008 SP1 Dell Precision PWS380 Intel(R) Pentium(R) CPU 3.20GHz 3.19GHz, 3,50GB RAM<P>Windows XP Pro Version 2002 SP2
|
erstellt am: 28. Mrz. 2008 10:37 <-- editieren / zitieren --> Unities abgeben:
|
lbcad Ehrenmitglied V.I.P. h.c. Dipl.-Ing. Maschinenbau und CAD-Trainer
Beiträge: 3794 Registriert: 15.02.2001
|
erstellt am: 28. Mrz. 2008 15:21 <-- editieren / zitieren --> Unities abgeben: Nur für Steiner Dominik
Hallo Dominik, ich denke, dass Du hiermit zurecht kommst: Code:
Public Sub RemoveUnusedTitleBlocksDefinitionsFromDoc() Dim oDrawDoc As DrawingDocument Set oDrawDoc = ThisApplication.ActiveDocument Dim i As Long For i = oDrawDoc.TitleBlockDefinitions.Count To 1 Step -1 If Not oDrawDoc.TitleBlockDefinitions.Item(i).IsReferenced Then oDrawDoc.TitleBlockDefinitions.Item(i).Delete End If Next i Set oDrawDoc = Nothing End Sub
------------------ Gruß Lothar --------------------------------------------------- Während man es aufschiebt, verrinnt das Leben. Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.) ----------------------------------------------------- Wir unterstützen die Arbeit der: - Rettungshundestaffel des DRK Viersen - Rettungshundestaffel Isar Ost Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Steiner Dominik Mitglied Mechanical Engineer
Beiträge: 141 Registriert: 12.09.2007 Inventor 2008 SP1 Dell Precision PWS380 Intel(R) Pentium(R) CPU 3.20GHz 3.19GHz, 3,50GB RAM<P>Windows XP Pro Version 2002 SP2
|
erstellt am: 31. Mrz. 2008 07:13 <-- editieren / zitieren --> Unities abgeben:
|
krümelandrej Mitglied
Beiträge: 34 Registriert: 04.11.2021 Windows 10 Inventor 2021
|
erstellt am: 30. Jan. 2023 11:56 <-- editieren / zitieren --> Unities abgeben: Nur für Steiner Dominik
|
krümelandrej Mitglied
Beiträge: 34 Registriert: 04.11.2021 Windows 10 Inventor 2021
|
erstellt am: 30. Jan. 2023 12:09 <-- editieren / zitieren --> Unities abgeben: Nur für Steiner Dominik
|
rkauskh Moderator Dipl.-Ing. (FH) Versorgungstechnik
Beiträge: 2166 Registriert: 15.11.2006 Windows 10 x64, AIP 2022
|
erstellt am: 30. Jan. 2023 12:19 <-- editieren / zitieren --> Unities abgeben: Nur für Steiner Dominik
Hallo Nö, aber wenn man VBA-Code in iLogic ausführen möchte, muss man die Syntax anpassen. Code:
Public Sub RemoveUnusedTitleBlocksDefinitionsFromDoc() Dim oDrawDoc As DrawingDocument = ThisDrawing.Document Dim i As Long For i = oDrawDoc.TitleBlockDefinitions.Count To 1 Step -1 If Not oDrawDoc.TitleBlockDefinitions.Item(i).IsReferenced Then oDrawDoc.TitleBlockDefinitions.Item(i).Delete End If Next i End Sub
------------------ MfG Ralf RKW Solutions GmbH www.RKW-Solutions.com Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |