Question

vb对solidworks二次开发中录制的宏文件运行的时候不行，选择对象的时候选择不上，需要修改什么？

boolstatus = Part.Extension.SelectByID2("", "FACE", -1.025114525817, 0.35, -0.01119519487321, False, 0, Nothing, 0)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID2("", "FACE", -1.131982535668, 0.35, -0.1121753386512, False, 0, Nothing, 0)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID2("D1@草图1@零件3-1@装配体1", "DIMENSION", -1.259018966382, 0.2557504869364, -0.530321784311, False, 0, Nothing, 0)
Dim myDimension As Object
Set myDimension = Part.Parameter("D1@草图1@零件3.Part")
以上程序中，选择面和选择装配体中零件尺寸都选择不上，该修改哪些东西啊？

Answer 1

首先你在VB中建好窗口，然后单击“工程—引用——”选择
“SolidWorks exposed Type Libraries For add-in Use”(SolidWorks插件库文件)、“SolidWorks 2007 Type Libray”（SolidWorks库文件、和“SolidWorks Consant Type library”（SolidWorks常数库），
（可能版本不同会有区别）

然后将宏文件中的 Set swApp = Application.SldWorks
改为
Set swApp = CreateObject("sldworks.application")
其余的修改自己弄。该删的删掉

追问

我用的是2009版，工程都引用了，你可以告诉我SelectByID2（）函数各个参数都表示什么吗？就是这个选择函数没法运行。

Answer 2

不是太明白你的意思，能不能表达清楚一些啊！

追问

我要修改装配体里零件3的D1@草图1尺寸，以上是我在宏里录制的语句，但是在宏里单步执行这些语句根本什么也不执行。不知道是语句的问题？还是别的问题？

追答

虽然你改动的是零件的草图尺寸，但是毕竟是在装配体里面进行的
所以得用装配体的对象
而不是用零件的对象
part换成你的装配体对象的名称试试
另外把没用的程序给删了
就剩下两行就可以了
Dim myDimension As Object
Set myDimension = Part.Parameter("D1@草图1@零件3.Part")
换成这样的试试
Dim myDimension As Object
Set myDimension = Assembly.Parameter("D1@草图1@零件3.Part")

追问

boolstatus = Part.Extension.SelectByID2("D1@草图1@零件3-1@装配体1", "DIMENSION", -1.259018966382, 0.2557504869364, -0.530321784311, False, 0, Nothing, 0)
主要是这一句选择不上对象，你改的那一句只是选择了对象之后修改它的值。

追答

你的目的是选择上对象吗？还是修改某个尺寸的值？
若是前者的话，输出boolstatus的值，true或者false。其值为true时，表示选择了对象；其值为false时，则没有选择对象。
若是修改某个尺寸的值，则不需要那个语句，我试过的。你试过的有什么问题吗？