|
Inventor : Kennzeichnung Maßüberschreibung
Ehli1982 am 02.05.2012 um 14:06 Uhr (0)
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 IntegerDim wrong As IntegerDim dimv As Inventor.DrawingDimensionDim oDoc As Inventor.DrawingDocumentSet oDoc = ThisApplication.ActiveDocument If oDoc.DocumentType kDrawingDocumentObject Then Exit Sub If oDoc.ActiveSheet.DrawingViews.Count = 0 The ...
| | In das Form Inventor wechseln |
|
Inventor : Kennzeichnung Maßüberschreibung
Ehli1982 am 03.05.2012 um 08:54 Uhr (0)
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 IntegerDim wrong As IntegerDim dimv As Inv ...
| | In das Form Inventor wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |