用vb二次开发sw时弹出错误：“对象变量或with块变量未设置”

xyfei100 · 发表于 2010-5-17 10:03:07

经典图书

用vb二次开发sw时，重新生成零件图时总是弹出错误：“对象变量或with块变量未设置”
我想利用以下代码（该代码的核心部分是来自SolidWorks自带的API帮助中的源码）实现从SolidWorks2009中取出当前已经打开零件实体的质量，不知道为什么！各位高手有谁知道这是怎么回事？请指教，谢谢！我的qq是：395248656，欢迎和我随时沟通！
程序大概如下：swapp,part,l0...这些变量都已经定义。
Private Sub Command1_Click()
’首先我想打开我需要提取质量属性的零件
Dim swApp As Object '定义应用程序对象句柄
Dim Part As Object
Set swApp = CreateObject("SldWorks.Application")'创建一个应用程序
Set Part = swApp.OpenDoc("d:我的文档桌面软件版权申请框图专题软件源代码（自编为主）立柱立柱（零件图）.SLDPRT", swDocPART)
'打开一个已存在的实体文件
Set Part = swApp.ActivateDoc("立柱（零件图）.SLDPRT")

’以下是来自SolidWorks自带的API帮助中的源码（关于GetMassProperties函数）
Dim instance As SldWorks.Body2
Dim den As Double
Dim value As Object
den = 7350 ’定义密度值
value = instance.GetMassProperties(den) ‘把质量值返回到value中
End Sub

yaohuanhong · 发表于 2010-5-20 04:43:08

发错区了

		自动登录	找回密码
密码			立即注册

用vb二次开发sw时弹出错误：“对象变量或with块变量未设置”

浏览过的版块