Hallo,
Ich habe da einen code gefunden der es mir erlaubt mittels tastendruck die skizzen dimensionen des ausgewaehlten teiles zu bearbeiten. Allerdings funktioniert das nur wenn ich das teil geoeffnet habe. Meine frage, kann mir jemand sagen wie der code geaendert werden muss damit er auch dann funktioniert wenn ich ein teil innerhalb eines zusammenbaus edietiere (z.b. doppel klick auf das teil waerend ich in der assembly bin). Das macro macht es um vieles einfacher teile zu bearbeiten. Wenn ich das jetzt noch innerhalb einer assembly zum laufen krieg dann waere das echt super.
Dankbar fuer jede hilfe,
Elmar
Public Sub ShowDimensions()
Dim oDoc As PartDocument
Set oDoc = ThisApplication.ActiveDocument
Dim odef As PartComponentDefinition
Set odef = oDoc.ComponentDefinition
Dim oFeature As PartFeature
Set oFeature = odef.Features.Item(1)
oDoc.SelectSet.Select oFeature
Dim oControlDef As ControlDefinition
Set oControlDef =
ThisApplication.CommandManager.ControlDefinitions.Item("PartShowDimensionsCt
xCmd")
oControlDef.Execute
End Sub
------------------
XP Pro, Inventor 2009 & SW 08, Grafic Quadro 750XL, Ram 1500,CPU 3.0
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP