I am writing a macro to add a body from a file to a part and move it to a location. The problem I am having is when I use FeatureManager::InsertMoveCopyBody2 it tells me that the body is no longer in the model when it clearly is and is selected. Am I missing something. Here is an example of what I am doing.

Dim swApp As SldWorks.SldWorks Dim MyTool As SldWorks.body2 Dim FeatMan As FeatureManager Dim CatchAll As Object Dim Part As SldWorks.PartDoc Dim AsModelDoc As SldWorks.ModelDoc2 Dim ThisPoint As SldWorks.SketchPoint

Set swApp = CreateObject("SldWorks.Application") Set Part = swApp.ActiveDoc Set AsModelDoc = Part

Set thisPoint = 'somepoint Set FeatMan = AsModelDoc.FeatureManager

Set CatchAll = Part.InsertPart("G:\users\cds\TEMP\MyTool.SLDPRT", False, False, False) CatchAll.Name = "Tool1"

Set MyTool = CatchAll.GetSpecificFeature

CatchAll.Select False

FeatMan.InsertMoveCopyBody2 ThisPoint.x, ThisPoint.y, ThisPoint.z, 0, 0, 0,

0, 0, 0, 0, True, 0
Reply to
Corey Scheich
Loading thread data ...

I got it you have to go a round about way of selecting the body.

Dim FeatFaces as variant Dim MyFace1 as SldWorks.face2 Dim Mill as SldWorks.body2 Set Feat = Part.InsertPart("G:\users\cds\TEMP\MyTool.SLDPRT", False, False, False)

FeatFaces = Feat.GetFaces

Set MyFace1 = FeatFaces(0) Set Mill = MyFace1.GetBody

Mill.Select True, 1

Reply to
Corey Scheich

PolyTech Forum website is not affiliated with any of the manufacturers or service providers discussed here. All logos and trade names are the property of their respective owners.