Masse ohne Referenzpünkte Löschen (Autodesk/Inventor VBA)


	Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor	Thema: Masse ohne Referenzpünkte Löschen (734 mal gelesen)
Emick Mitglied Programmierer Beiträge: 22 Registriert: 18.09.2005 Inventor VBA	erstellt am: 20. Okt. 2005 12:48 <-- editieren / zitieren --> Unities abgeben: 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 Moderator Softwareentwickler Beiträge: 3497 Registriert: 01.08.2002 Alienware m17x, Win7, Inventor2012	erstellt am: 26. Okt. 2005 10:23 <-- editieren / zitieren --> Unities abgeben: Nur für Emick 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 Beiträge: 22 Registriert: 18.09.2005 Inventor VBA	erstellt am: 26. Okt. 2005 10:58 <-- editieren / zitieren --> Unities abgeben: 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 Moderator Softwareentwickler Beiträge: 3497 Registriert: 01.08.2002 Alienware m17x, Win7, Inventor2012	erstellt am: 26. Okt. 2005 10:59 <-- editieren / zitieren --> Unities abgeben: Nur für Emick 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 Beiträge: 22 Registriert: 18.09.2005 Inventor VBA	erstellt am: 26. Okt. 2005 11:03 <-- editieren / zitieren --> Unities abgeben: 9er gruss Emick Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
daywa1k3r Moderator Softwareentwickler Beiträge: 3497 Registriert: 01.08.2002 Alienware m17x, Win7, Inventor2012	erstellt am: 26. Okt. 2005 11:34 <-- editieren / zitieren --> Unities abgeben: Nur für Emick 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. Beiträge: 260 Registriert: 30.12.2002 Inv 2013/2014 FDS Win7 64bit PSP2011 FX3000m HP 8770w 32GB	erstellt am: 23. Nov. 2005 16:31 <-- editieren / zitieren --> Unities abgeben: Nur für Emick dem 9er fehlt das Dimension Objekt... Deshalb keine Chance... Gruss Pelikan Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Emick Mitglied Programmierer Beiträge: 22 Registriert: 18.09.2005 Inventor VBA	erstellt am: 24. Nov. 2005 15:30 <-- editieren / zitieren --> Unities abgeben: 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.:
X

Anzeige: (Infos zum Werbeplatz >>)