| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Arbeitsblattformate mittels VBA löschen (2149 mal gelesen)
|
alexx Mitglied Dipl.Ing.(FH)
Beiträge: 16 Registriert: 14.08.2003
|
erstellt am: 09. Mai. 2004 14:10 <-- editieren / zitieren --> Unities abgeben:
ich möchte die Inhalte der Arbeitsblattformate mittels VBA löschen. Bei Schriftfeldern, Rändern usw. klappt das ja zB. mit For i = 1 To oDocDestination.TitleBlockDefinitions.Count oDocDestination.TitleBlockDefinitions.Item(i).Delete Next i Aber kann mir jemand sagen, wie ich die Arbeisblattformate anspeche? Als *Definitions gibt's eben nur Schriftfelder, Ränder und Skizzierte Symbole. Danke vorab Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
PaulSchuepbach Moderator Programmierer
Beiträge: 1005 Registriert: 01.10.2003
|
erstellt am: 10. Mai. 2004 07:45 <-- editieren / zitieren --> Unities abgeben: Nur für alexx
Hallo Alexx, Du kannst die Sheet-Groesse auslesen mit: MsgBox oDocDestination.ActiveSheet.Size wobei 'oDocDestination' Dein DrawingDocument-Objekt ist. Rueckgabewert ist die DrawingSheetSizeEnum. Hoffe, das hilft. Gruesse,
Paul Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
alexx Mitglied Dipl.Ing.(FH)
Beiträge: 16 Registriert: 14.08.2003
|
erstellt am: 10. Mai. 2004 14:49 <-- editieren / zitieren --> Unities abgeben:
Hallo Paul, erstmal danke, aber ich meinte was anderes. Ich möchte die Inhalte der Arbeitsblattformate löschen. Siehe jpg-Anhang: also A4-Größe, Hochformat ... bis A0-Größe... Es sollen keine Arbeitsblattformate in der idw mehr enthalten sein. Danke schon mal. Gruß Alexx 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: 3794 Registriert: 15.02.2001 DELL Precision 7520 Win10Pro-64 Inventor mit Vault Professional 2022 --------------------- Während man es aufschiebt, verrinnt das Leben. Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)
|
erstellt am: 10. Mai. 2004 17:03 <-- editieren / zitieren --> Unities abgeben: Nur für alexx
Hi Alexx, eigentlich müsste es so funktionieren: Sub DeleteBorderDefinitions()
Dim i As Long Dim oDrawDoc As DrawingDocument Set oDrawDoc = ThisApplication.ActiveDocument On Error Resume Next For i = oDrawDoc.BorderDefinitions.Count To 1 Step -1 oDrawDoc.BorderDefinitions.Item(i).Delete Next i On Error GoTo 0 Set oDrawDoc = Nothing End Sub
------------------ Gruß Lothar Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
alexx Mitglied Dipl.Ing.(FH)
Beiträge: 16 Registriert: 14.08.2003
|
erstellt am: 11. Mai. 2004 13:06 <-- editieren / zitieren --> Unities abgeben:
Hi Lothar, dein Code löscht die Inhalte der "Ränder" aber nicht die Inhalte der "Arbeitsblattformate". Ich vermute bald, dass die API des Inventors das nicht kann. Für Ränder gibt's die BorderDefinitions, für Scfhriftköpfe die TitleBlockDefinitions aber was um Himmels willen gibt's für Arbeitsblattformate???? Gruss und Dank Alexx
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: 3794 Registriert: 15.02.2001 DELL Precision 7520 Win10Pro-64 Inventor mit Vault Professional 2022 --------------------- Während man es aufschiebt, verrinnt das Leben. Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)
|
erstellt am: 11. Mai. 2004 17:25 <-- editieren / zitieren --> Unities abgeben: Nur für alexx
|
Arpi Mitglied
Beiträge: 79 Registriert: 19.04.2002
|
erstellt am: 04. Jan. 2005 09:24 <-- editieren / zitieren --> Unities abgeben: Nur für alexx
Laut Autodesk gibt es keine Möglichkeit, die Arbeitsblattformate via VB zu löschen, da nicht in der API vorgesehen. Es gibt auch kein workaround. Es geht weder in der 9er noch wird es in der 10er implementiert sein. Es wurde aber als Wunsch aufgenommen. ------------------ Tata Rainer Phantasie ist wichtiger als Wissen, denn Wissen ist begrenzt! www.fla-nell.de kindermöbel & accessoires Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
eagle82 Mitglied Konstrukteur
Beiträge: 35 Registriert: 23.06.2005 IV10 SP3a
|
erstellt am: 11. Jul. 2006 12:16 <-- editieren / zitieren --> Unities abgeben: Nur für alexx
Hallo! Dadurch dass ich momentan die Möglichkeit gebraucht habe ein Arbeitsblattformat zu löschen, habe ich mich ein bischen damit beschäftigt und man kann es umgehen!!! Über den BrowserPane sichtbar machen und selectieren, dann mittels SendKeys({DEL}) entfernen ... ---> gelöscht! Mfg Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |