| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Maße in einer idw per Skript durch Text ersetzen (2132 mal gelesen)
|
Suppengruen Mitglied Dipl.Ing. (FH) FWT/Mechatronik
Beiträge: 13 Registriert: 02.10.2012
|
erstellt am: 02. Okt. 2012 14:05 <-- editieren / zitieren --> Unities abgeben:
Hallo, ich habe folgendes Problem. Ich habe einen Haufen Inventor Zeichnungen, und für ein Prüfprotokoll soll es für jeden Datensatz eine separate Zeichnung geben, in der die maßstabsgetreuen Maße durch eine Nummer ersetzt werden. In CATIA wüsste ich wie ich das automatisieren kann. { For each Document.Dimension in ThisDocument Text = Document.Dimension.Number Maßtsäbliches Maß mit Text überschreiben Next } In Inventor habe ich leider keine Ahnung. Habe mir schon den Transcripting Mode per Regedit zugeschaltet und die Prozedur mal aufgezeichnet. Nur leider sieht das Ergebnis des Transcriptings unbrauchbar aus und den Text, mit dem ich das Maß überschrieben habe sehe ich auch nicht. Kennt sich jemand mit Programmierung so weit aus? Ich meine die Maße müssten als numerierte Objekte in einem Zeichnungsdokument liegen (Transcripting: ... ActiveDocument.Execute("Document1","ToleranceFit","DimensionInstance=Document1.DLSheet392DCSegment.17816; ... Habe leider keinen Praktikanten, den ich an sowas hinsetzen könnte. [Diese Nachricht wurde von Suppengruen am 02. Okt. 2012 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
muellc Ehrenmitglied V.I.P. h.c. ICT Specialist
Beiträge: 3501 Registriert: 30.11.2006 Inventor 2017.4.12 64 bit Windows 10 Enterprise 64 bit 3DEXPERIENCE R2016x -------------------- HP Z-Book 15 G4 32 Gig Ram NVIDIA Quadro M2200 2x HP E243i
|
erstellt am: 02. Okt. 2012 15:24 <-- editieren / zitieren --> Unities abgeben: Nur für Suppengruen
|
Leo Laimer Moderator CAD-Dienstleister
Beiträge: 26104 Registriert: 24.11.2002 IV bis 2019
|
erstellt am: 02. Okt. 2012 15:28 <-- editieren / zitieren --> Unities abgeben: Nur für Suppengruen
|
Suppengruen Mitglied Dipl.Ing. (FH) FWT/Mechatronik
Beiträge: 13 Registriert: 02.10.2012
|
erstellt am: 02. Okt. 2012 15:35 <-- editieren / zitieren --> Unities abgeben:
Zitat: Original erstellt von Leo Laimer: Hallo,Welchen Text willst Du drinstehen haben? Eine serielle Nummer, oder einen Zusatztext der bei jedem Maß anders ist, oder überall dasselbe?
Angenommen folgende Situation: Es befinden sich 3 Maße in der Zeichnung. Maß 1: "212.3" Maß 2: "Ø55" Maß 3: "120 ±0.01" Die Originalmaße werden ausgeblendet und durch folgende ersetzt: Maß 1: "1" Maß 2: "2" Maß 3: "3" Hoffe ich konnte das anschaulich machen. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Leo Laimer Moderator CAD-Dienstleister
Beiträge: 26104 Registriert: 24.11.2002 IV bis 2019
|
erstellt am: 02. Okt. 2012 16:00 <-- editieren / zitieren --> Unities abgeben: Nur für Suppengruen
Also die Maße (in beliebiger Reihenfolge?) einfach seriell durchnummerieren. Die originale Maßzahl soll dabei nirgends mehr sichtbar oder tabelliert/archiviert/rausgeschrieben werden? Ich frage nur aus Interesse, Lösung hab ich keine. Ich glaub, da brauchst ziemlich handfeste Programmierung, am ehesten kann Dir Jemand aus dem Inventor.NET/VBA-Forum helfen. ------------------ mfg - Leo Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
nightsta1k3r Ehrenmitglied V.I.P. h.c. plaudern
Beiträge: 11223 Registriert: 25.02.2004 Hier könnte ihre Werbung stehen!
|
erstellt am: 02. Okt. 2012 16:08 <-- editieren / zitieren --> Unities abgeben: Nur für Suppengruen
|
Suppengruen Mitglied Dipl.Ing. (FH) FWT/Mechatronik
Beiträge: 13 Registriert: 02.10.2012
|
erstellt am: 02. Okt. 2012 16:12 <-- editieren / zitieren --> Unities abgeben:
Zitat: Original erstellt von nightsta1k3r: Ich nehme an, die fortlaufende Nummer soll dann mit einer eingebetteten Wertetabelle zusammenspielen. Nicht gerade trivial ....
Ja. Aber die Prüftabelle erstelle nicht ich, sondern ein HiWi woanders Ich muss nur die Maße durch fortlaufende Nummern ersetzen. Wie gesagt. In CATIA ist es ein 5-Zeiler also nix kompliziertes. Nur hat CATIA eben den Makro-Recorder. Da sieht man, was man im Modulrumpf alles initialisieren muss. Und genau dort habe ich ein Problem in Inventor. Das funzt nicht so wie ich will. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Leo Laimer Moderator CAD-Dienstleister
Beiträge: 26104 Registriert: 24.11.2002 IV bis 2019
|
erstellt am: 02. Okt. 2012 16:29 <-- editieren / zitieren --> Unities abgeben: Nur für Suppengruen
Diese Variante von perpetuum labore kannte ich noch nicht: Alle Maße eines Zeichnungssatzes werden durch dumme fortlaufende Nummern ersetzt, und Jemandanderer schreibt eine Tabelle, in der diese seriellen Nummern Maßwerten zugeordnet werden - die genau wie aus der Zeichnung mit den seriellen Nummern extrahiert werden sollen? ------------------ mfg - Leo Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
nightsta1k3r Ehrenmitglied V.I.P. h.c. plaudern
Beiträge: 11223 Registriert: 25.02.2004 Hier könnte ihre Werbung stehen!
|
erstellt am: 02. Okt. 2012 18:10 <-- editieren / zitieren --> Unities abgeben: Nur für Suppengruen
Zitat: Original erstellt von Leo Laimer: Alle Maße eines Zeichnungssatzes werden durch dumme fortlaufende Nummern ersetzt, und Jemandanderer schreibt eine Tabelle, in der diese seriellen Nummern Maßwerten zugeordnet werden
Jepp, das haben wir auch, mit Inventor. Ein kompletter Datensatz für die Fertigung, was früher eine Woche gedauert hat ist damit in einer halben Stunde erledigt. Aber wir ersetzen nicht jedes mal, einmal in der Vorlage genügt . ------------------
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Frank_Schalla Ehrenmitglied CAD_SYSTEMBETREUER
Beiträge: 1732 Registriert: 06.04.2002 DELL M6800 Cad Admin Methodikentwickler 3D
|
erstellt am: 02. Okt. 2012 19:22 <-- editieren / zitieren --> Unities abgeben: Nur für Suppengruen
Hi dies hier macht was du möchtest. Bitte in dein Default VBA Projekt kopieren und dann los Public Sub Count_and_hide_dims() ' Set a reference to the active drawing document Dim oDoc As DrawingDocument Set oDoc = ThisApplication.ActiveDocument ' Set a reference to the active sheet Dim oSheet As Sheet Set oSheet = oDoc.ActiveSheet Dim oDrawingDim As DrawingDimension ' Iterate over all dimensions in the drawing Dim n As Variant n = 1 For Each oDrawingDim In oSheet.DrawingDimensions oDrawingDim.HideValue = True oDrawingDim.Text.FormattedText = ("'" & (n) & "'") Call oDrawingDim.CenterText n = n + 1 Next Debug.Print n End Sub ------------------ ************************************ "Das Motto des Tages" Wir hatten nie 'ne Schulung in Inventor Wir hatten nie 'ne Schulung in Methodik Wir haben keinen Wartungsvertrag Wir haben keinen Admin Wir haben trotzdem Spaß! ************************************ [Diese Nachricht wurde von Frank_Schalla am 02. Okt. 2012 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Suppengruen Mitglied Dipl.Ing. (FH) FWT/Mechatronik
Beiträge: 13 Registriert: 02.10.2012
|
erstellt am: 04. Okt. 2012 10:04 <-- editieren / zitieren --> Unities abgeben:
Zitat: Original erstellt von Leo Laimer: Diese Variante von perpetuum labore kannte ich noch nicht: Alle Maße eines Zeichnungssatzes werden durch dumme fortlaufende Nummern ersetzt, und Jemandanderer schreibt eine Tabelle, in der diese seriellen Nummern Maßwerten zugeordnet werden - die genau wie aus der Zeichnung mit den seriellen Nummern extrahiert werden sollen?
Ist wohl in dem Fall so, Jemandanderer hat schliesslich auch eine Daseinsberechtigung Bei uns gibts keine Klausel gegen fahrlässigen Unsinn im Arbeitsvertrag Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Suppengruen Mitglied Dipl.Ing. (FH) FWT/Mechatronik
Beiträge: 13 Registriert: 02.10.2012
|
erstellt am: 04. Okt. 2012 10:07 <-- editieren / zitieren --> Unities abgeben:
|