Hallo Freaks!
Ich versuche vergeblich mit der AddByTaerOff-Methode, eine vorhandene Skizze in ein Part einzubeziehen.
Hintergrund: Ein Sub-Assembly in der Baugruppe1 trägt eine Assembly-Skizze, in der Bohrungen einbezogen sind. Diese Bohrungen sollen nun auf ein SheetMetal-Teil in der selben Baugruppe1 mit Hilfe der Skizze übertragen werden.
Hier der Auszug aus dem Code:
Set objOccurrence = objSelectSet.Item(2)
Set objOccDoc = objOccurrence.OccurrenceDocument
Set objLayouts = objOccDoc.Layouts
Set objLayout = objLayouts.Item(1)
ReDim arrSelection(0)
Set arrSelection(0) = objLayout.Profile
objSEAssy.Application.StartCommand (57872) '**** AssemblyEditActivateembeddedorlinkedobject
Sleep (1000)
Set objSESheetMet = objSEAssy.Application.ActiveDocument
Set objRefPlane = objSESheetMet.RefPlanes.Item(1)
Set objSketch = objSketchs.AddByTearOff(arrSelection, objRefPlane, True, True)
Hat jemand eine Idee?
Gruß und Danke,
BJ
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP