Hallo zusammen,
Ich habe auf einer Skizze eine Geometrie, die ich automatisch bemaßen und abhängig machen möchte. Damit das so funktioniert wie ich will, projeziere ich zuerst die beiden in meinem Fall sichtbaren Achsen. So weit so gut
Regel1: "Achsen projezieren"
Dim oDoc As Inventor.Document
oDoc = ThisDoc.Document
Dim oCompDef As PartComponentDefinition
oCompDef = oDoc.ComponentDefinition
Dim oSketches As PlanarSketches = ThisApplication.ActiveEditDocument.ComponentDefinition.Sketches
If TypeOf ThisApplication.ActiveEditObject Is Sketch Then
Dim oSketch As Sketch = ThisApplication.ActiveEditObject
oSketch.ExitEdit
End If
oSketches("Skizze1").Edit
Dim oXAxis As SketchLine
oXAxis = oSketches("Skizze1").AddByProjectingEntity(oCompDef.WorkAxes("X-Achse"))
Dim oYAxis As SketchLine
oYAxis = oSketches("Skizze1").AddByProjectingEntity(oCompDef.WorkAxes("Z-Achse"))
Next
Regel2: "Auto-Bemaßung" (Wendet den Auto-Bemaßungsbefehl an und drückt dann in der erscheinenden Schaltfläche auf "Anwenden")
Dim oCommandMgr As CommandManager
oCommandMgr = ThisApplication.CommandManager
Dim oControlDef As ControlDefinition
oControlDef = oCommandMgr.ControlDefinitions.Item("SketchAutoDimensionCmd")
Dim oKCmd As ControlDefinition
oKCmd = ThisApplication.CommandManager.ControlDefinitions.Item("AppContextual_OKCmd")
Call oControlDef.Execute
Call oKCmd.Execute
Nur wenn ich versuche, das ganze für die Skizzen "Skizze1" bis "Skizze7" mithilfe eines for...next Loops anzuwenden, macht das Programm Blödsinn und wendet die Auto-Bemaßung nur auf "Skizze7" an.
HÜLFE wäre sehr erwünscht. Ich habe es mehrfach versucht und kriege es einfach nicht hin diese Prozedur für mehrere Skizzen einzeln zu wiederholen. Das Achsen projezieren allein ist nicht das Problem, das habe ich angepasst dass es die einzelnen SKizzen durchläuft. Nur bei der Auto-Bemaßung macht es Probleme.
Danke.
[Diese Nachricht wurde von Tobias F am 11. Mrz. 2019 editiert.]
[Diese Nachricht wurde von Tobias F am 11. Mrz. 2019 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP