| |
![](https://ww3.cad.de/php/image.php?resolution=width:20050) | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
![](https://ww3.cad.de/php/image.php?resolution=width:20043) | Auf dem Weg zur digitalen Auftragsmappe. (Phoenix/PDM,SOLIDWORKS,PDM System,PLM,PLM System), ein Anwenderbericht |
Autor
|
Thema: alle Maße in einer Skizze löschen? (2474 mal gelesen)
|
freierfall Ehrenmitglied V.I.P. h.c. Techniker
![](/foren/avatars/freierfall.gif)
![Schreiben Sie einen Gästebucheintrag für freierfall](/foren/ubb/pmimages/gbu.gif) Beiträge: 11556 Registriert: 30.04.2004 WIN10 64bit, 32GB RAM IV bis 2022
|
erstellt am: 16. Jul. 2014 11:02 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif)
|
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
![](/foren/avatars/daywa1k3r.gif)
![Schreiben Sie einen Gästebucheintrag für daywa1k3r](/foren/ubb/pmimages/gbu.gif) Beiträge: 3497 Registriert: 01.08.2002 Desktop: 3.3GHz;8GB;SSD OCZ Vertex 3;Gainward Phantom GTX570 Laptop: Alienware m17x Win7, Inventor2012 64Bi
|
erstellt am: 16. Jul. 2014 11:38 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für freierfall
Hallo Sascha, falls es wirklich keinen Filter dazu gibt kannst du dieses Makro ausprobieren: Code:
' Macro removes all dimensions from the active sketch ' Needs the active document and the sketch in edit mode ' FX64 daywa1k3r, Igor Zupevc, 16.07.2014 Sub DeleteAllSketchDimensions() If ThisApplication.ActiveDocument Is Nothing Then MsgBox "No active document found", vbCritical, "Error" Exit Sub End If Dim oPart As PartDocument Set oPart = ThisApplication.ActiveDocument If Not TypeOf ThisApplication.ActiveEditObject Is Sketch Then MsgBox "No avtive sketch found", vbCritical, "Error" Exit Sub End If Dim oSketch As Inventor.Sketch Set oSketch = ThisApplication.ActiveEditObject On Error Resume Next oPart.SelectSet.Clear Dim oDimension As DimensionConstraint For Each oDimension In oSketch.DimensionConstraints oPart.SelectSet.Select oDimension oDimension.Delete Next If oPart.SelectSet.Count <> 0 Then MsgBox "It was not possible to delete selected dimensions.", vbCritical, "Error" End If End Sub
------------------ Grüße Igor FX64 Software Solutions - Inventor Tools FX64 LambdaSpect - Lichtsimulation mit Autodesk Inventor Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
freierfall Ehrenmitglied V.I.P. h.c. Techniker
![](/foren/avatars/freierfall.gif)
![Schreiben Sie einen Gästebucheintrag für freierfall](/foren/ubb/pmimages/gbu.gif) Beiträge: 11556 Registriert: 30.04.2004 WIN10 64bit, 32GB RAM IV bis 2022
|
erstellt am: 16. Jul. 2014 13:33 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif)
|
freierfall Ehrenmitglied V.I.P. h.c. Techniker
![](/foren/avatars/freierfall.gif)
![Schreiben Sie einen Gästebucheintrag für freierfall](/foren/ubb/pmimages/gbu.gif) Beiträge: 11556 Registriert: 30.04.2004 WIN10 64bit, 32GB RAM IV bis 2022
|
erstellt am: 16. Jul. 2014 22:40 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif)
|
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
![](/foren/avatars/daywa1k3r.gif)
![Schreiben Sie einen Gästebucheintrag für daywa1k3r](/foren/ubb/pmimages/gbu.gif) Beiträge: 3497 Registriert: 01.08.2002 Desktop: 3.3GHz;8GB;SSD OCZ Vertex 3;Gainward Phantom GTX570 Laptop: Alienware m17x Win7, Inventor2012 64Bi
|
erstellt am: 17. Jul. 2014 09:59 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für freierfall
|
axi92 Mitglied Konstrukteur
![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für axi92](/foren/ubb/pmimages/gbu.gif) Beiträge: 685 Registriert: 20.02.2010 Inventor 2014 64bit SP2 Build 246 Vault Basic 2014 64bit SP2 Update 7 HP Z200 Win 7 64bit 16GB RAM CPU: i5 3,2GHz GPU: Nvidia Quadro K600
|
erstellt am: 18. Jul. 2014 08:17 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für freierfall
Ich bin mir nicht ganz sicher aber geht es nicht auch wenn man einfach alles markiert dann ENTF drück fragt er eh nach ob man die Ansicht X auch mitlöschen möchte drückt man nein verschwindet alles bis auf die Ansicht. Textfelder allerdings auch... ------------------ Grüße aus Wien Philipp http://black-evolution.de/ Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
freierfall Ehrenmitglied V.I.P. h.c. Techniker
![](/foren/avatars/freierfall.gif)
![Schreiben Sie einen Gästebucheintrag für freierfall](/foren/ubb/pmimages/gbu.gif) Beiträge: 11556 Registriert: 30.04.2004 WIN10 64bit, 32GB RAM IV bis 2022
|
erstellt am: 18. Jul. 2014 08:23 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif)
|
Michael Puschner Moderator Rentner
![](/foren/ubb/Admin1.gif) ![](/foren/ubb/Admin2.gif) ![](/foren/ubb/Admin3.gif) ![](/foren/ubb/Admin4.gif) ![](/foren/ubb/Admin5.gif) ![](/foren/ubb/Admin1.gif) ![](/foren/ubb/Admin2.gif) ![](/foren/ubb/Admin3.gif)
![](/foren/avatars/Michael_Puschner.gif)
![Schreiben Sie einen Gästebucheintrag für Michael Puschner](/foren/ubb/pmimages/gbu.gif) Beiträge: 13006 Registriert: 29.08.2003 Toshiba Encore mit MS Office Ein Programm sollte nicht nur Hand und Fuß, sondern auch Herz und Hirn haben. (Michael Anton)
|
erstellt am: 18. Jul. 2014 10:09 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für freierfall
Zitat: Original erstellt von axi92: ... alles markiert ... verschwindet alles bis auf die Ansicht. Textfelder allerdings auch ...
In der Zeichnung kann man einen benutzerdefinierten Auswahlfilder verwenden, der nur Bemaßungen selektiert. Nur gibt es den nicht in der Skizzenumgebung, sondern nur in der Zeichnungsumgebung, wie der Fragesteller schon im Eröffnungsbeitrag festgestellt hat. ------------------ Michael Puschner Autodesk Inventor Certified Expert Autodesk Inventor Certified Professional Mensch und Maschine Scholle GmbH Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
pAtrickstAr Mitglied Werkzeugmechaniker
![Schreiben Sie einen Gästebucheintrag für pAtrickstAr](/foren/ubb/pmimages/gbu.gif) Beiträge: 7 Registriert: 02.05.2024
|
erstellt am: 02. Mai. 2024 11:38 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für freierfall
Guten Tag, ja ich krame hier wohl einen sehr alten Beitrag wieder ans Licht. Das Makro hat einwandfrei innerhalb der Skizze einer *.ipt funktioniert. Nun zu meiner Frage bzw. Bitte. Wäre es möglich solch ein Makro auch innerhalb eines Blocks zu verwenden? Da kommt leider immer eine Fehlermeldung : "Error , No avtive sketch found" denke der Schreibfehler ist da jetzt mal zu ignorieren. Wäre nur wirklich sehr schön wenn es auch im Block funktionieren würde. Schon mal vielen Dank im Voraus ^^
freundliche Grüße Dennis
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
rkauskh Moderator Dipl.-Ing. (FH) Versorgungstechnik
![](/foren/ubb/Admin1.gif) ![](/foren/ubb/Admin2.gif) ![](/foren/ubb/Admin3.gif) ![](/foren/ubb/Admin4.gif) ![](/foren/ubb/Admin5.gif) ![](/foren/ubb/Admin1.gif) ![](/foren/ubb/Admin2.gif)
![](/foren/avatars/rkauskh.gif)
![Schreiben Sie einen Gästebucheintrag für rkauskh](/foren/ubb/pmimages/gbu.gif) Beiträge: 2505 Registriert: 15.11.2006 Windows 10 x64, AIP 2023
|
erstellt am: 02. Mai. 2024 13:05 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für freierfall
Moin Ein Skizzenblock ist halt keine Skizze. Daher funktioniert der Code so nicht, war ja auch nicht gefordert. Es lässt sich aber relativ einfach erweitern: Code:
Option Explicit ' Macro removes all dimensions from the active sketch or ' sketchblock ' Needs the active document and the sketch / sketchblock ' in edit mode ' original FX64 daywa1k3r, Igor Zupevc, 16.07.2014 ' modified rkauskh, 02.05.2024 Sub DeleteAllSketchDimensions() If ThisApplication.ActiveDocument Is Nothing Then MsgBox "No active document found", vbCritical, "Error" Exit Sub End If Dim oPart As PartDocument Set oPart = ThisApplication.ActiveDocument Dim oDimension As DimensionConstraint If TypeOf ThisApplication.ActiveEditObject Is Sketch Then Dim oSketch As Inventor.Sketch Set oSketch = ThisApplication.ActiveEditObject oPart.SelectSet.Clear On Error Resume Next For Each oDimension In oSketch.DimensionConstraints oPart.SelectSet.Select oDimension oDimension.Delete Next If oPart.SelectSet.count <> 0 Then MsgBox "It was not possible to delete selected dimensions.", vbCritical, "Error" End If ElseIf TypeOf ThisApplication.ActiveEditObject Is SketchBlock Then Dim oSketchBlock As Inventor.SketchBlock Set oSketchBlock = ThisApplication.ActiveEditObject oPart.SelectSet.Clear On Error Resume Next For Each oDimension In oSketchBlock.Definition.DimensionConstraints oPart.SelectSet.Select oDimension oDimension.Delete Next If oPart.SelectSet.count <> 0 Then MsgBox "It was not possible to delete selected dimensions.", vbCritical, "Error" End If Else MsgBox "No active sketch or sketchblock found", vbCritical, "Error" Exit Sub End If End Sub
------------------ MfG Ralf Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
KraBBy Mitglied Maschinenbau-Ingenieur
![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für KraBBy](/foren/ubb/pmimages/gbu.gif) Beiträge: 718 Registriert: 19.09.2007 Inventor Professional 2020 WinX
|
erstellt am: 02. Mai. 2024 13:05 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für freierfall
Hi Dennis, unten der etwas angepasste Code. Dieser hat in meinem minimal-Test funktioniert. Ich habe auch einen Unterschied festgestellt, ob nun der Block a) innerhalb einer Skizze, oder b) aus dem Browserverzeichnis "Blöcke" bearbeitet wird. Bei b) ging das Makro auch vorher schon. Code: Sub DeleteAllSketchDimensions() If ThisApplication.ActiveDocument Is Nothing Then MsgBox "No active document found", vbCritical, "Error" Exit Sub End If Dim oPart As PartDocument Set oPart = ThisApplication.ActiveDocument Dim oSketch As Inventor.Sketch If Not TypeOf ThisApplication.ActiveEditObject Is Sketch Then If TypeOf ThisApplication.ActiveEditObject Is SketchBlock Then Set oSketch = ThisApplication.ActiveEditObject.Definition Else MsgBox "No avtive sketch found", vbCritical, "Error" Exit Sub End If Else 'es handelt sich um eine Sketch (oder auch SketchBlockDefinition) Set oSketch = ThisApplication.ActiveEditObject End If On Error Resume Next oPart.SelectSet.Clear Dim oDimension As DimensionConstraint For Each oDimension In oSketch.DimensionConstraints oPart.SelectSet.Select oDimension oDimension.Delete Next If oPart.SelectSet.Count <> 0 Then MsgBox "It was not possible to delete selected dimensions.", vbCritical, "Error" End If End Sub
------------------ Gruß KraBBy Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
KraBBy Mitglied Maschinenbau-Ingenieur
![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für KraBBy](/foren/ubb/pmimages/gbu.gif) Beiträge: 718 Registriert: 19.09.2007 Inventor Professional 2020 WinX
|
erstellt am: 02. Mai. 2024 13:33 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für freierfall
|
pAtrickstAr Mitglied Werkzeugmechaniker
![Schreiben Sie einen Gästebucheintrag für pAtrickstAr](/foren/ubb/pmimages/gbu.gif) Beiträge: 7 Registriert: 02.05.2024
|
erstellt am: 02. Mai. 2024 13:49 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für freierfall
|
Roland Schröder Moderator Dr.-Ing. Maschinenbau, Entwicklung & Konstruktion von Spezialmaschinen
![](/foren/ubb/Admin1.gif) ![](/foren/ubb/Admin2.gif) ![](/foren/ubb/Admin3.gif) ![](/foren/ubb/Admin4.gif) ![](/foren/ubb/Admin5.gif) ![](/foren/ubb/Admin1.gif) ![](/foren/ubb/Admin2.gif) ![](/foren/ubb/Admin3.gif)
![](/foren/avatars/Roland_Schroder.gif)
![Schreiben Sie einen Gästebucheintrag für Roland Schröder](/foren/ubb/pmimages/gbu.gif) Beiträge: 13348 Registriert: 02.04.2004 IV 2024
|
erstellt am: 02. Mai. 2024 18:13 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für freierfall
|
pAtrickstAr Mitglied Werkzeugmechaniker
![Schreiben Sie einen Gästebucheintrag für pAtrickstAr](/foren/ubb/pmimages/gbu.gif) Beiträge: 7 Registriert: 02.05.2024
|
erstellt am: 03. Mai. 2024 10:16 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für freierfall
Hallo Roland, es gibt keine dummen Fragen ^^ um es möglichst kurz zu halten will ich es mal so sagen. Wir arbeiten hier in 2,5 D um unsere Bauteile mit Hilfe von Drahterodiermaschinen nachzuarbeiten. Da kommt es oftmals vor, dass sich die Bemaßungen und Abhängigkeiten erübrigen die man vor der letzten Änderung gesetzt hat. Abhängigkeiten lassen sich ja auf einen Schlag löschen. Nur eben keine Bemaßungen. Mit dem Makro erspare ich mir einiges an Zeit und geklicke ^^ Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |