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

auxymc

   经典图书

用vb二次开发sw时，重新生成零件图时总是弹出错误：“对象变量或with块变量未设置”
而同样的方法有的零件就可以有的就不行，好象是旋转体就可以拉伸是不可以，不知道为什么！各位高手有谁知道这是怎么回事？请指教，谢谢！
程序大概如下：swapp,part,l0...这些变量都已经定义。
Private Sub Command1_Click()
Set swapp = CreateObject("sldworks.application")
swapp.Visible (True)
Set part = swapp.OpenDoc(App.Path & "A型2孔.sldprt", 1)
Set part = swapp.ActivateDoc(&quotart1")

part.Parameter("d1@草图1").SystemValue = l0/1000
....................
....................
part.EditRebuild
part.EditRebuild
End Sub

tavta

本人正在进行此方面工作。可以交流一下：出现提示：“对象变量或with块变量未设置”的问题很多。建议你在SW中录制你所要进行的操作的完整的宏，复制到VB中，修改其中初始化的两条即可。另外OpenDoc应为OpenDoc6。从宏中可以看出来。

abe587

   经典图书

录制宏后运行时同样弹出此错误！这是不是和vb 没有关系啊？

flanker

解决了么？
我干过二次开发，不知能帮上忙不

dhon168

   经典案例图书

     没有！
     我是第一次搞这些而且身边没人教，所以遇到这个问题不知道怎么解决，我试了好多办法都不行！更奇怪的是有的零件可以有的不可以，而且我把不能用的零件的程序拷贝到能用的零件的程序中修改成适合的尺寸后还是不能用所以我怀疑是sw中某些东西没设置好但就是不知道怎么弄。如果你认为是那有问题请给个意见，谢谢！

pan637

把这些都定义一次看看能解决么"
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long
Dim Annotation As Object
Dim Gtol As Object
Dim DatumTag As Object
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object"
要定义在public内

qq5201118

   经典案例图书

终于搞定了！！是下面的两句出错了！
  
Set part = swapp.OpenDoc(App.Path & "A型2孔.sldprt", 1)
Set part = swapp.ActivateDoc(&quotart1")
  
打开的 文件名和建立的名必须一样，只要把第二句的"part1"改为“2孔”就可以了。这是我在无意中发现的。
  
谢谢大家对我的帮助！把问题告诉大家，希望对大家有用！

b52333

谢谢，不过我发现还不是简单的这样的原因所在

freecek

我也遇到同样的问题！期待高手指点。

dankemich

   经典图书

我也遇到同样的问题，期待高手指点

qqfly332211

活到老学到老！