Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Inventor
  Maße in einer idw per Skript durch Text ersetzen

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:  Maße in einer idw per Skript durch Text ersetzen (2132 mal gelesen)
Suppengruen
Mitglied
Dipl.Ing. (FH) FWT/Mechatronik


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

Beiträge: 13
Registriert: 02.10.2012

erstellt am: 02. Okt. 2012 14:05    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

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



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

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 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 Suppengruen 10 Unities + Antwort hilfreich

Hallo,

schuau am besten mal ins Inventor VBA Forum, da wirst du wahrscheinlich eher eine Hilfe bekommen können.

Trotzem Herzlich Wilkommen hier im WBF

------------------
Gruß, Gandhi
It's not a bug, it's a feature!
CAD-RPG - Anleitungen IVNGWC

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

Leo Laimer
Moderator
CAD-Dienstleister




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

Beiträge: 26104
Registriert: 24.11.2002

IV bis 2019

erstellt am: 02. Okt. 2012 15:28    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 Suppengruen 10 Unities + Antwort hilfreich

Hallo,

Welchen Text willst Du drinstehen haben? Eine serielle Nummer, oder einen Zusatztext der bei jedem Maß anders ist, oder überall dasselbe?

------------------
mfg - Leo

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

Suppengruen
Mitglied
Dipl.Ing. (FH) FWT/Mechatronik


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

Beiträge: 13
Registriert: 02.10.2012

erstellt am: 02. Okt. 2012 15:35    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

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




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

Beiträge: 26104
Registriert: 24.11.2002

IV bis 2019

erstellt am: 02. Okt. 2012 16:00    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 Suppengruen 10 Unities + Antwort hilfreich

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



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

Beiträge: 11223
Registriert: 25.02.2004

Hier könnte ihre Werbung stehen!

erstellt am: 02. Okt. 2012 16:08    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 Suppengruen 10 Unities + Antwort hilfreich

Ich nehme an, die fortlaufende Nummer soll dann mit einer eingebetteten Wertetabelle zusammenspielen.
Nicht gerade trivial ....

------------------

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

Suppengruen
Mitglied
Dipl.Ing. (FH) FWT/Mechatronik


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

Beiträge: 13
Registriert: 02.10.2012

erstellt am: 02. Okt. 2012 16:12    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

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




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

Beiträge: 26104
Registriert: 24.11.2002

IV bis 2019

erstellt am: 02. Okt. 2012 16:29    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 Suppengruen 10 Unities + Antwort hilfreich

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



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

Beiträge: 11223
Registriert: 25.02.2004

Hier könnte ihre Werbung stehen!

erstellt am: 02. Okt. 2012 18:10    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 Suppengruen 10 Unities + Antwort hilfreich

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


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

Beiträge: 1732
Registriert: 06.04.2002

DELL M6800
Cad Admin
Methodikentwickler 3D

erstellt am: 02. Okt. 2012 19:22    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 Suppengruen 10 Unities + Antwort hilfreich

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


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

Beiträge: 13
Registriert: 02.10.2012

erstellt am: 04. Okt. 2012 10:04    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

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


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

Beiträge: 13
Registriert: 02.10.2012

erstellt am: 04. Okt. 2012 10:07    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

Ihr seid super.
Problem gelöst.

Meinetwegen Thread closed 

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