Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor VBA
  Schriftfeld löschen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
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


Sehen Sie sich das Profil von Steiner Dominik an!   Senden Sie eine Private Message an Steiner Dominik  Schreiben Sie einen Gästebucheintrag für Steiner Dominik

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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




Sehen Sie sich das Profil von PaulSchuepbach an!   Senden Sie eine Private Message an PaulSchuepbach  Schreiben Sie einen Gästebucheintrag für PaulSchuepbach

Beiträge: 1005
Registriert: 01.10.2003

erstellt am: 28. Mrz. 2008 10:36    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Steiner Dominik 10 Unities + Antwort hilfreich

Hallo Dominik,

ein Schriftfeld kannst Du nur aus den Resourcen löschen, wenn es in keinem Blatt mehr drin ist. Das Standard-Schriftfeld lässt sich - soweit ich weiss - gar nicht löschen.


------------------
Grüsse, Paul

Inventor-Programmierung, Inventor-Tools und Inventor API-Schulung

Meine Tochter auf Youtube

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Steiner Dominik
Mitglied
Mechanical Engineer


Sehen Sie sich das Profil von Steiner Dominik an!   Senden Sie eine Private Message an Steiner Dominik  Schreiben Sie einen Gästebucheintrag für Steiner Dominik

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Ich meine nicht das Standartschriftfeld sonder wir haben leider ziemlich viele drinnnen und die will ich alle aus den Res. löschen geht das irgendwie

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



Sehen Sie sich das Profil von lbcad an!   Senden Sie eine Private Message an Lothar Boekels  Schreiben Sie einen Gästebucheintrag für Lothar Boekels

Beiträge: 3794
Registriert: 15.02.2001

erstellt am: 28. Mrz. 2008 15:21    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Steiner Dominik 10 Unities + Antwort hilfreich

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


Sehen Sie sich das Profil von Steiner Dominik an!   Senden Sie eine Private Message an Steiner Dominik  Schreiben Sie einen Gästebucheintrag für Steiner Dominik

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Super danke werd es dann gleich mal probieren. unties sind unterwegs

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

krümelandrej
Mitglied



Sehen Sie sich das Profil von krümelandrej an!   Senden Sie eine Private Message an krümelandrej  Schreiben Sie einen Gästebucheintrag für krümelandrej

Beiträge: 34
Registriert: 04.11.2021

Windows 10
Inventor 2021

erstellt am: 30. Jan. 2023 11:56    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Steiner Dominik 10 Unities + Antwort hilfreich

Hallo zusammen!

Gibt es hiefür zufälligerweise einen neuen Code?

"Set"-Zuweisung wird nicht mehr unterschtützt.

Viele Grüße


Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

krümelandrej
Mitglied



Sehen Sie sich das Profil von krümelandrej an!   Senden Sie eine Private Message an krümelandrej  Schreiben Sie einen Gästebucheintrag für krümelandrej

Beiträge: 34
Registriert: 04.11.2021

Windows 10
Inventor 2021

erstellt am: 30. Jan. 2023 12:09    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Steiner Dominik 10 Unities + Antwort hilfreich

Hallo zusammen!
Gibt es hiefür zufälligerweise einen neuen Code?

"Set"-Zuweisung wird nicht mehr unterschtützt.

Viele Grüße

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

rkauskh
Moderator
Dipl.-Ing. (FH) Versorgungstechnik




Sehen Sie sich das Profil von rkauskh an!   Senden Sie eine Private Message an rkauskh  Schreiben Sie einen Gästebucheintrag für rkauskh

Beiträge: 2166
Registriert: 15.11.2006

Windows 10 x64, AIP 2022

erstellt am: 30. Jan. 2023 12:19    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Steiner Dominik 10 Unities + Antwort hilfreich

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz