---

Guten Morgen,

ich traue mich fast nicht diese Frage zu stellen.Sie kommt allerdings auch nicht von mir, sondern von unserem Konstruktionsleiter!!!
Natürlich soll/darf man keine Maße überschreiben. Wenn dies trotzdem geschieht, kann Inventor dies durch eine Markierung kenntlich machen??

Vielen Dank für Eure Hilfe

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

---

Zitat:

---

Original erstellt von hexje74:
Guten Morgen,

ich traue mich fast nicht diese Frage zu stellen.Sie kommt allerdings auch nicht von mir, sondern von unserem Konstruktionsleiter!!!
Natürlich soll/darf man keine Maße überschreiben. Wenn dies trotzdem geschieht, kann Inventor dies durch eine Markierung kenntlich machen??

Vielen Dank für Eure Hilfe

---

vielleicht den Text unterstreichen, so wie früher auf dem Zeichenbrett auch?
Ich glaube IV macht sowas nicht automatisch, (womit er auch recht hat ;-)

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

---

Hallo,
wenn wir ältere Abwicklungen aus ACAD im Inventor durch das 3D Bauteil darstellen passiert es auch schon mal das Maße überschrieben werden müssen.
Wir nehmen einen anderen Layer der das Maß dann in rot darstellt. Wenn dann irgendwann mal eine Änderung kommen sollte, kann man die Maße mit anpassen.

Ob es auch eine Automatische Funktion gibt kann ich dir leider nicht sagen.

Gruß Veit

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

---

Ich glaube mich vage erinnern zu können dass im guten alten Genius das so gelöst war, dass überschriebene Maße automatisch unterstrichen wurden (ganz wie's gute Praxis am Zeichenbrett war).
Im Mechanical kann ich so einen Automatismus nicht mehr finden, leider.
Aber das manuelle Unterstreichen einer Maßzahl ist genau 1 Klick in derselben Dialogbox wo die Maßzahl überschrieben wird.

Im IV wären es ein paar Mausklicks mehr um den frisch überschriebenen Text zu unterstreichen (ausser man legt einen Bemassungsstil extra für überschriebene Maße an).

Der tiefere Sinn darin, Maße zu überschreiben erschliesst sich erst wenn man weg von den klassischen Fertigungszeichnungen denkt. Ja, es gibt durchaus legitime und sinnvolle Anwendungen dafür, eine automatische, unübersehbare Kennzeichnung dafür wäre sehr wünschenswert.

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

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

---

Inventor 2010 oder Inventor 2009 SB-Pack können auf Zeichnungen "alle überschriebenen Maße" mit einem Klick auf "Auswahl" herausfiltern und markieren. Mit einem weiteren Klick könnte man dann den Bemaßungsstil ändern und so z.B. eine andersfarbige Bemaßungsdarstellung einstellen.

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

Tja die ganzen jungen Leute kennen die gute alte Zeit nicht nehr.
Hallo Bernhard  
@hexje74
Dies sollte das machen was du willt  <A HREF="http://inventor.cad.de/i_vba/pdf_zip/bemdezi9.zip

------------------
   
http://inventor.cad.de/i_vba/pdf_zip/bemdezi9.zip

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

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 24. Nov. 2009 editiert.]

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

---

Vielen Dank!!!

P.S: Frank, dein Motto spricht uns aus der Seele

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

---

Zitat:

---

Original erstellt von hexje74:
.... sondern von unserem Konstruktionsleiter!!!

---

Sofort kündigen... 

------------------
Der vernünftige Mensch paßt sich der Welt an;
der unvernünftige besteht auf dem Versuch, die Welt sich anzupassen.

Deshalb hängt aller Fortschritt vom unvernünftigen Menschen ab.
(George Bernard Shaw)

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

---

@Udo & Frank:

Bei diesen Routinen muss man sozusagen einen konkreten Verdacht haben dass in einer bestimmten Zeichnung überschriebene Maße drin sind, sodann die Routine drüberlaufen lassen - oder wie funktioniert das in der Praxis?

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

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

---

Routinemäßig drüberlaufen lassen und beim 3. überschriebenen Maß gibt´s `ne Abmahnung

------------------
Der vernünftige Mensch paßt sich der Welt an;
der unvernünftige besteht auf dem Versuch, die Welt sich anzupassen.

Deshalb hängt aller Fortschritt vom unvernünftigen Menschen ab.
(George Bernard Shaw)

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

---

Konkreter Verdacht - ja kann man auch so nennen.
Ich mach es grundsätzlich bei Prüfung von Zeichnungen (z.B. von studentischen Arbeiten), halte aber auch in Schulungen die Zeichner und Konstukteure dazu an, eigene oder fremde Zeichnungen grundsätzlich oder zumindest vor Freigabe auf überschriebene Maße zu prüfen.
Allerdings gibts dann ja auch noch die berühmten Maße <> x 45°, die damit nicht erfasst werden, da das Maß nicht überschrieben, sondern nur (evt. falsch) mit einem Ergänzungstext versehen wurde.

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

Zitat:

---

Original erstellt von Charly Setter:
Routinemäßig drüberlaufen lassen und beim 3. überschriebenen Maß gibt´s `ne Abmahnung

---

Routinemässig... Bei gut 3000 Zeichnungen und 3x drüberlaufen stellt sich da tatsächlich etwas Routine ein <G>

Wir schänken die Anwendung von Maßüberschreibungen ganz streng ein auf Angebots-/Projektzeichnungen die auf einem ganz groben 3D-Entwurf basieren.
Wobei ich mir aber da etwas Anderes auch noch wünschen würde, nämlich Maßzahlen automatisch auf 5er/10er/50er/100er usw. runden lassen zu können.
Nur damit nicht so blöde Maße wie "ca. 16207" im Layout stehen, sondern (gerundet): "ca. 16200".
Unnötig festzustellen dass das Mechanical seit Jahrzehnten kann.

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

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

---

Für das Runden auf 10er Längen fällt mir spontan folgender Workaround ein:
a) erzeuge einen Bemaßungstil "Standard DIN gerundet auf ganze 10er"
b) Stelle im Karteireiter "Einheiten" des Bem-Stils als Einheit "cm" ein.
c) als Präfix schreibe "ca. " und als Suffix eine "0".

nun werden alle Maße mit diesem Bemaßungsstil gerundet auf 10er angezeigt.

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

...und wehe, Du vergisst das Suffix!

------------------
Gert Dieter 

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

---

Danke für den Workaround, Udo.
Ich glaub für die seltenen Fälle wo's wirklich nicht zu vermeiden ist werden wir doch beim Überschreiben bleiben.
All die anderen Fälle, wo's halt nett gewesen wäre, wir es aber nicht gemacht haben, bleib ich dabei bei der Zeichnungsübergabe an den Kunden etwas zu murmeln von "dummer Software...".

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

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

---

Zitat:

---

Original erstellt von Frank_Schalla:
Tja die ganzen jungen Leute kennen die gute alte Zeit nicht nehr.
Hallo Bernhard   
@hexje74
Dies sollte das machen was du willt  <A HREF="http://inventor.cad.de/i_vba/pdf_zip/bemdezi9.zip

---

... falsche Inventorversion, läuft nur mit Inventor 9. Schade.
Kann man das eventuell auf 2009 adaptieren?

Gruß
Ruprecht

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

---

das angehängte kleine Makro zeigt dir (bitte pro Blatt ausführen) wer
gepfuscht hat und markiert die Maße     
********
Public Sub check_dims()
Dim i As Integer
Dim wrong As Integer
Dim dimv As Inventor.DrawingDimension

Dim oDoc As Inventor.DrawingDocument
Set oDoc = ThisApplication.ActiveDocument


  If oDoc.DocumentType <> kDrawingDocumentObject Then Exit Sub
  If oDoc.ActiveSheet.DrawingViews.Count = 0 Then Exit Sub
  wrong = 0
  i = 1
For Each dimv In oDoc.ActiveSheet.DrawingDimensions

    If oDoc.ActiveSheet.DrawingDimensions.Item(i).ModelValueOverridden = True Then
    wrong = wrong + 1
    oDoc.ActiveSheet.DrawingDimensions.Item(i).Text.FormattedText = "<DimensionValue/> <StyleOverride Bold='True' Underline='True'>(FALSE)</StyleOverride>"
    End If
    i = i + 1
Next
If wrong > 0 Then
MsgBox "Overriden Domensions found PLEASE CHECK", vbCritical
End If

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ß!

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

---

Hallo Frank,

der Fudeltest klappt einwandfrei, vielen Dank und schönes Wochenende!

Gruß
Ruprecht

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

---

Ich habe mal ein Tool gesehen, dass bestimmte Standards in Inventor Dateien überprüft und anzeigt. icheck oder so ähnlich, da konnte man z.B. einstellen das das Tool überprüft ob Skizzen im Mittelpunkt liegen, Skizzen vollständig bestimmt sind usw. Da sind bestimmt auch Tools für Zeichnungen mit dabei die den Anwender schon darauf aufmerksam machen, daß die Dateien noch nicht dem Firmenstandard entsprechen.
Finde ich persönlich besser als nachträglich zu kontrollieren und jemanden eventuell auf die Finger hauen zu müssen.

Ich habs doch noch gefunden: http://www.tatatechnologies.com/autodesk/icheckithome.asp

Grüße

Edit: Im Video wird das Überschreiben von Bemaßungen bei 13:20 demonstriert bzw. bei der gezeigten Zeichnung hat niemand Maße überschrieben.

[Diese Nachricht wurde von loop29 am 28. Nov. 2009 editiert.]

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

---

ACHTUNG! Sie antworten auf einen Beitrag der älter als 1 Jahr ist!

Zitat:

---

Original erstellt von Frank_Schalla:
das angehängte kleine Makro zeigt dir (bitte pro Blatt ausführen) wer
gepfuscht hat und markiert die Maße       
********
Public Sub check_dims()
Dim i As Integer
Dim wrong As Integer
Dim dimv As Inventor.DrawingDimension

Dim oDoc As Inventor.DrawingDocument
Set oDoc = ThisApplication.ActiveDocument


  If oDoc.DocumentType <> kDrawingDocumentObject Then Exit Sub
  If oDoc.ActiveSheet.DrawingViews.Count = 0 Then Exit Sub
  wrong = 0
  i = 1
For Each dimv In oDoc.ActiveSheet.DrawingDimensions

    If oDoc.ActiveSheet.DrawingDimensions.Item(i).ModelValueOverridden = True Then
    wrong = wrong + 1
    oDoc.ActiveSheet.DrawingDimensions.Item(i).Text.FormattedText = "<DimensionValue/> <StyleOverride Bold='True' Underline='True'>(FALSE)</StyleOverride>"
    End If
    i = i + 1
Next
If wrong > 0 Then
MsgBox "Overriden Domensions found PLEASE CHECK", vbCritical
End If

End Sub

---

Hallo Gemeinde,

ich habe gerad diese schönen Zeilen ausprobiert.
Mir ist dabei aufgefallen, dass dieses Makro funktioniert, wenn ich den Haken bei "Angezeigten Wert überschreiben" in dem Reiter "Genauigkeit und Toleranz" überschreibe.
Es funktioniert meiner Meinung nach nicht, wenn ich im Reiter "Text" den Wert überschreibe. Gibt es einen beabsichtigten Grund dafür bzw. kann man das in diesem Makro als Abfrage noch einbauen?

Gruß Ehli

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

---

Dies hier sollte auch das ausblenden erfassen 
****************
Public Sub check_dims()
Dim i As Integer
Dim wrong As Integer
Dim dimv As Inventor.DrawingDimension

Dim oDoc As Inventor.DrawingDocument
Set oDoc = ThisApplication.ActiveDocument

  If oDoc.DocumentType <> kDrawingDocumentObject Then Exit Sub
  If oDoc.ActiveSheet.DrawingViews.Count = 0 Then Exit Sub
  wrong = 0
  i = 1
For Each dimv In oDoc.ActiveSheet.DrawingDimensions

    If oDoc.ActiveSheet.DrawingDimensions.Item(i).ModelValueOverridden = True Then
    wrong = wrong + 1
    oDoc.ActiveSheet.DrawingDimensions.Item(i).Text.FormattedText = "<DimensionValue/> <StyleOverride Bold='True' Underline='True'>(FALSE)</StyleOverride>"
    End If
   
    If oDoc.ActiveSheet.DrawingDimensions.Item(i).HideValue = True Then
    wrong = wrong + 1
    oDoc.ActiveSheet.DrawingDimensions.Item(i).Text.FormattedText = "<DimensionValue/> <StyleOverride Bold='True' Underline='True'>(HIDDEN)</StyleOverride>"
    End If
   
   
    i = i + 1
Next
If wrong > 0 Then
MsgBox "Overriden Domensions found PLEASE CHECK", vbCritical
End If

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ß!
************************************

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

---

Hallo Frank,

vielen Dank für deine schnelle Hilfe. Sind echt super die Zeilen!

Ich hoffe die verdienten Unit`s sind angekommen. Weiß leider nicht, wo ich das nachsehen kann.

Ich habe deine Zeilen noch etwas erweitert. Ich habe noch eine zweite Msg-Box hinzugefügt, die mir zeigen soll, ob das Makro funktioniert. Nur zur Kontrolle für mich oder die jenigen die das Makro auch interressant finden.

Also nochmals vielen Dank für die Hilfe !!!!

Public Sub check_dims()
Dim i As Integer
Dim wrong As Integer
Dim dimv As Inventor.DrawingDimension

Dim oDoc As Inventor.DrawingDocument
Set oDoc = ThisApplication.ActiveDocument

  If oDoc.DocumentType <> kDrawingDocumentObject Then Exit Sub
  If oDoc.ActiveSheet.DrawingViews.Count = 0 Then Exit Sub
  wrong = 0
  i = 1
For Each dimv In oDoc.ActiveSheet.DrawingDimensions

    If oDoc.ActiveSheet.DrawingDimensions.Item(i).ModelValueOverridden = True Then
    wrong = wrong + 1
    oDoc.ActiveSheet.DrawingDimensions.Item(i).Text.FormattedText = "<DimensionValue/> <StyleOverride Bold='True' Underline='True'>(!!! Angezeigter Wert überschrieben !!!)</StyleOverride>"
    End If
 
    If oDoc.ActiveSheet.DrawingDimensions.Item(i).HideValue = True Then
    wrong = wrong + 1
    oDoc.ActiveSheet.DrawingDimensions.Item(i).Text.FormattedText = "<DimensionValue/> <StyleOverride Bold='True' Underline='True'>(!!! Bemaßungswert ausgeblendet !!!)</StyleOverride>"
    End If
 
 
    i = i + 1
Next
If wrong > 0 Then
MsgBox "Manipulierte Bemaßung  !!! BITTE PRÜFEN !!!", vbCritical
End If

If wrong < 1 Then
MsgBox "Es wurde(n) keine manipulierte(n) Bemaßung(en) gefunden", vbCritical
End If

End Sub

!!! PS: Woran kann es liegen das die Meldungen der Msg-Box so lange auf dem Bildschirm bleiebn, egal ob ich abbrechen oder ok drücke????? Es rattert ewig die Eieruhr.....

Gruß Ehli

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

---

Ich glaube meine Eieruhr hatte was damit zu tun das ich den Pfad für die Default.ivb in der Projekt-Datei noch nicht entsprechend auf den Server angelegt habe. Hatte noch den Standard-Pfad drin. Scheint jetzt schneller zu funktionieren.

Gruß Ehli

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

---

Tja das verzögerte kommt eben dadurch das VBA unter X64 eigentlich
obsolet und nur in einer emulierten X32 Umgebung ausgeführt wird.

------------------
************************************
"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ß!
************************************

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

---

Zitat:

---

Original erstellt von Ehli1982:
Ich glaube meine Eieruhr hatte was damit zu tun das ich den Pfad für die Default.ivb in der Projekt-Datei noch nicht entsprechend auf den Server angelegt habe.

---

Du meinst sicherlich "in der Vorlage-Datei" ? Oder ich versteh's nicht.

Jürgen

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

---

Hallo Jürgen,

ich habe das erste mal den VBA-Editor etc. benutzt. Die DIVA hat in meinem Fall noch den von Autodesk voreingestellten Pfad zum ablegen der Default.ivb Datei verwendet. Sprich C:\bla bla bla. Ich dachte das das langsame Verhalten der Msg-Box daher stammt, dass ich noch den voreingestellten Pfad benutze, obwohl sonstige Pfadangaben auf den Server verweisen, sprich Vorlagedateien etc. Die Vault-Projektdatei habe ich nun entsprechend angepasst und ich hatte das Gefühl, dass das Verhalten der Anzeige der Msg-Box jetzt schneller verläuft.
Die Msg-Box ist immer unter laufen der Eieruhr auf dem Bildschirm sichtbar geblieben, obwohl ich schon mehrfach "OK" oder "ABBRECHEN" gedrückt hatte.

Ich hoffe ich habe es jetzt besser verständlich erklärt.

Ehli

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

---

 

Zitat:

---

Original erstellt von Ehli1982:

Ich hoffe ich habe es jetzt besser verständlich erklärt.

---

Obwohl OT noch ein
Danke für die Rückinfo. Ich lese jetzt was von "Vault-Projektdatei" - da kann ich nicht mitreden (mangels Vault-Kenntnisse). In Einzelbenutzer-Projekten wir der Speicherort für das Vorgabe-VBA-Projekt in den Anwendungsoptionen eingestellt. Deshalb hatte mich Deine Bemerkung, den Pfad für die Default.ivb in der Projekt-Datei bearbeitet zu haben etwas irritiert.
[/OT]

Jürgen

[Diese Nachricht wurde von jupa am 03. Mai. 2012 editiert.]

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