Hot News:

Mit Unterstützung durch:

   Foren auf CAD.de
  Inventor VBA
  Masse ohne Referenzpünkte 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
  
PNY wird von NVIDIA zum Händler des Jahres gewählt - zum dritten Mal in Folge, eine Pressemitteilung
Autor Thema:  Masse ohne Referenzpünkte Löschen (755 mal gelesen)
Emick
Mitglied
Programmierer


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

Beiträge: 22
Registriert: 18.09.2005

Inventor VBA

erstellt am: 20. Okt. 2005 12:48    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
Hi miteinander

Wenn ein Part geändert wird, kann sein dass in der IDW die Referenzpünkte verloren gehen. Dann werden dessen Masse in Rot (Magenta) angezeigt. Ist es möglich speziell die anzusprechen und zu Löschen? Wenn Ja Bitte wie.

Ich Bedanke mich im Voraus für eure geschäzte Hilfe

Gruss
Emick

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

daywa1k3r
Ehrenmitglied V.I.P. h.c.
Softwareentwickler



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

Beiträge: 3497
Registriert: 01.08.2002

Alienware m17x, Win7, Inventor2012

erstellt am: 26. Okt. 2005 10:23    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 Emick 10 Unities + Antwort hilfreich
So?

Code:

Sub test_bem()
    Dim oBem As DrawingDimension
    For Each oBem In ThisApplication.ActiveDocument.Sheets(1).DrawingDimensions
        If Not oBem.Attached Then oBem.Delete
    Next
End Sub

------------------
Grüße daywa1k3r

FX64 Software Solutions
Mold&More Software Solutions

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

Emick
Mitglied
Programmierer


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

Beiträge: 22
Registriert: 18.09.2005

Inventor VBA

erstellt am: 26. Okt. 2005 10:58    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
Hi daywa1k3r

Ich danke dir für deine Antwort. Leider gehts nicht.

Sub Bemassung_Loeschen()

    Dim oApp As Inventor.Application
    Set oApp = GetObject(, "Inventor.Application")

    Dim oDrawDoc As DrawingDocument
    Set oDrawDoc = oApp.ActiveDocument
   
    Dim oSheet As Sheet
    Set oSheet = oDrawDoc.ActiveSheet
   
    Dim oDrawingDim As DrawingDimension
   
    For Each oDrawingDim In oSheet.DrawingDimensions
        If Not oDrawingDim.???????? Then oDrawingDim.Delete
    Next
End Sub

Was ist Falsch?????????


gruss
Emick

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

daywa1k3r
Ehrenmitglied V.I.P. h.c.
Softwareentwickler



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

Beiträge: 3497
Registriert: 01.08.2002

Alienware m17x, Win7, Inventor2012

erstellt am: 26. Okt. 2005 10:59    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 Emick 10 Unities + Antwort hilfreich
Bei mir funktioniert's schon. Welche Inventor Version? Ich habe 10er (ich muss mein Profil updaten).

------------------
Grüße daywa1k3r

FX64 Software Solutions
Mold&More Software Solutions

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

Emick
Mitglied
Programmierer


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

Beiträge: 22
Registriert: 18.09.2005

Inventor VBA

erstellt am: 26. Okt. 2005 11:03    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
9er

gruss
Emick

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

daywa1k3r
Ehrenmitglied V.I.P. h.c.
Softwareentwickler



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

Beiträge: 3497
Registriert: 01.08.2002

Alienware m17x, Win7, Inventor2012

erstellt am: 26. Okt. 2005 11:34    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 Emick 10 Unities + Antwort hilfreich
Schade für dich 

------------------
Grüße daywa1k3r

FX64 Software Solutions
Mold&More Software Solutions

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

Pelikan
Mitglied
Dipl. Ing. Masch. Bau.


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

Beiträge: 261
Registriert: 30.12.2002

Inv 2013/2014 FDS
Win7 64bit
PSP2011
FX3000m HP 8770w 32GB

erstellt am: 23. Nov. 2005 16:31    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 Emick 10 Unities + Antwort hilfreich
dem 9er fehlt das Dimension Objekt...
Deshalb keine Chance...

Gruss Pelikan

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

Anzeige:Infos zum Werbeplatz >>

GeoVisual Civil Engineer CAD APP für 3D, Tiefbau, AEC - Architektur-, Ingenieur- und Bauwesen

Die benutzerfreundliche Softwarelösung zur Visualisierung von Infrastrukturplanungen

Emick
Mitglied
Programmierer


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

Beiträge: 22
Registriert: 18.09.2005

Inventor VBA

erstellt am: 24. Nov. 2005 15:30    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
Hi Pelikan

Für deine Anregung verdienst 10 Units.  
Sie sind auch schon unterwegs.
Du hast mir schon recht weiter gebracht.

Gruss Emick

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)2025 CAD.de | Impressum | Datenschutz