笨笨前些日子心情不好，闭关一个月，不过修炼的结果还是满意的，就是一个3D曲线输入工具——笨笨曲线 for 2005 B1，3D公式曲线输入插件。
现在初步将框架搭好了，功能还比较简单，甚至不支持括号和三角函数。希望在国庆前后改进，并推出第一个可用的正式版本与大家共享。所以先请大家帮忙测试一下稳定性和计算结果的正确性，之后再增加功能。
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set Part = swApp.NewDocument("E:SolidWorkslangchinese-simplifiedTutorialpart.prtdot", 0, 0#, 0#)
End Sub
Sub main()
Set swApp = Application.SldWorks
temp = swApp.GetUserPreferenceStringValue(8)<----看附图
Set Part = swApp.NewDocument(temp, 0, 0#, 0#)
End Sub
办法很简单，申明对象变量的时候把类型写清楚就行了。
例如：
Dim swApp As SldWorks.SldWorks ‘申明SW应用程序对象
Dim part As SldWorks.ModelDoc2 ’申明文件对象
这样下次用到这些变量的时候就会有对应的属性和方法提示
如果是这样申明：
Dim swApp As Object
VB也不清楚对象是个什么东东，自然没有提示。作者: ccww9898 时间: 2004-9-25 12:55
闲话说完，这次来是捉虫虫的。终于找到好方法改掉SW路径带来的错误了。先谢谢前面几位大侠的指点，不过笨笨太笨，你们的方法没试验成功。笨笨使用了
Set Part = swApp.NewPart
笨笨喜欢使用打包好的命令，懒呗，别骂我。另外界面作了小改动，也是为了避免这个问题。至于其他的就没时间更新了，大家原谅。
2350389-.rar
(23.96 KB, 下载次数: 14)