| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| | |
 | Autodesk Revit: Grundlagen - Online, ein Seminar am 10.11.2025
|
|
Autor
|
Thema: Schriftfeld löschen (1016 mal gelesen)
|
mordilios
Mitglied
   Beiträge: 69
Registriert: 28.04.2004 MS Windows 10 Proff.
Autodesk Inventor Proff. 2018
Autodesk Vault
Autodesk Nastran In-Cad
|
erstellt am: 06. Sep. 2005 10:31  <-- editieren / zitieren -->   Unities abgeben:          
Hallo, gibt es eine Möglichkeit, mit der man in mehreren idw nicht mehr benötigte Arbeitsblattformate und Schriftfelder löschen kann? Die Namen der Arbeitsblattformate und Schriftfelder sind in allen idw´s gleich. Danke im Voraus mordilios
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Andy-UP
Ehrenmitglied V.I.P. h.c.
Projektingenieur
Beiträge: 2567
Registriert: 27.10.2003 Inventor Pro 2014 SP1 Win 7
Xeon 3.2GHz 12 GB RAM
NVIDIA Quadro 4000
|
erstellt am: 06. Sep. 2005 11:41 <-- editieren / zitieren --> Unities abgeben: Nur für mordilios 
|
lbcad
Ehrenmitglied V.I.P. h.c.
Dipl.-Ing. Maschinenbau und CAD-Trainer
Beiträge: 3835
Registriert: 15.02.2001 DELL Precision 7520 Win10Pro-64
Inventor mit Vault Professional 2024
---------------------
Während man es aufschiebt,
verrinnt das Leben.
Lucius Annaeus Seneca
(ca. 4 v. Chr - 65 n. Chr.)
|
erstellt am: 06. Sep. 2005 13:01 <-- editieren / zitieren --> Unities abgeben: Nur für mordilios
Hallo mordilios, so müßte es eigentlich gehen. Code:
Sub RemoveTitleBlockDefinitionsFromDoc() 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
If Not oDrawDoc.TitleBlockDefinitions.Item(i).Name = "Holthausen Winding" Then
oDrawDoc.TitleBlockDefinitions.Item(i).Delete
End If
End If
Next i
Set oDrawDoc = Nothing
End Sub
Du mußt nur den Namen des beizubehaltenen TitelBlocks durch den Namen Deines TilelBlocks ersetzen. Für die Arbeitsblattformate müßte es ähnlich gehen und dann das Ganze über so ein Tool im Batchlauf über alle Dokumente bügeln und die Sache dürfte ok sein. ------------------
Gruß Lothar --------------------------------------------------- Während man es aufschiebt, verrinnt das Leben.
—Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.) [Diese Nachricht wurde von lbcad am 06. Sep. 2005 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
mordilios
Mitglied
Beiträge: 69
Registriert: 28.04.2004
|
erstellt am: 06. Sep. 2005 17:55 <-- editieren / zitieren --> Unities abgeben:
Hallo Lothar, Danke für deine rasche Antwort, hat schon funktioniert.
Leider kenn ich mich mit VBA nicht so gut aus, wie lautet den der code für die Arbeitsblattformate? Dank Dir im Voraus mordilios Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
lbcad
Ehrenmitglied V.I.P. h.c.
Dipl.-Ing. Maschinenbau und CAD-Trainer
Beiträge: 3835
Registriert: 15.02.2001 DELL Precision 7520 Win10Pro-64
Inventor mit Vault Professional 2024
---------------------
Während man es aufschiebt,
verrinnt das Leben.
Lucius Annaeus Seneca
(ca. 4 v. Chr - 65 n. Chr.)
|
erstellt am: 06. Sep. 2005 20:29 <-- editieren / zitieren --> Unities abgeben: Nur für mordilios
Hi, Für Arbeitsblattformate habe ich leider nichts gefunden. ;(
Aber evtl. haben die VBA-Spezialisten (zu denen ich mich eigentlich nicht zähle) da noch einen Tipp in petto ?!? ------------------
Gruß Lothar --------------------------------------------------- Während man es aufschiebt, verrinnt das Leben.
—Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.) [Diese Nachricht wurde von lbcad am 07. Sep. 2005 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
mordilios
Mitglied
Beiträge: 69
Registriert: 28.04.2004
|
erstellt am: 07. Sep. 2005 11:43 <-- editieren / zitieren --> Unities abgeben:
|
Foren auf CAD.de (alle Foren)
| 
