在VB中遇到的问题

dage23wo

我在网上找到了一个关于VB调用CAD图库的问题，然后源码打开后，显示装配有问题。现把源码附上，打开图的时候出现问题。请各位大神看看是什么问题。谢谢啦。每次打开是总是出现“对象变量或with块变量未设置”

2. 
   
3. '各带总图装配
   
4. Private Sub Command6_Click()
   
5. copy_move.yc_1.Text = yaolucanshu.yc_1.Text
   
6. copy_move.yc_2.Text = yaolucanshu.yc_2.Text
   
7. copy_move.yc_3.Text = yaolucanshu.yc_3.Text
   
8. copy_move.sc_1.Text = yaolucanshu.sc_1.Text
   
9. copy_move.sc_2.Text = yaolucanshu.sc_2.Text
   
10. copy_move.lc_1.Text = yaolucanshu.lc_1.Text
    
11. copy_move.lc_2.Text = yaolucanshu.lc_2.Text
    
12. copy_move.lc_3.Text = yaolucanshu.lc_3.Text
    
13. copy_move.mjyc.Caption = Val(yaolucanshu_1.mjc.Text) + Val(yaolucanshu_1.jlc.Text)
    
14. Dim yqc As Double, yzc As Double, sqc As Double, jlc As Double, hlc As Double
    
15.     yqc = 232 * Val(yaolucanshu.yc_1.Text)
    
16.     yzc = 232 * Val(yaolucanshu.yc_2.Text)
    
17.     sqc = 232 * Val(yaolucanshu.sc_1.Text)
    
18.     jlc = 232 * Val(yaolucanshu.lc_1.Text)
    
19.     hlc = 232 * Val(yaolucanshu.lc_2.Text)
    
20. Dim objCurDoc As AcadDocument
    
21. Dim objNewDoc As AcadDocument
    
22. Dim objLastDoc As AcadDocument
    
23. Select Case True
    
24. Case Option1(0).Value
    
25.    AutoCAD_Appliaction
    
26. ' 打开第一张图
    
27.     Set objCurDoc = acadapp.Documents.Open(App.Path & "\Gallery\预热带前段.dwg")
    
28.     copy_moveSset "NEW1", 232, Val(copy_move.yc_1.Text), "0"
    
29. ' 打开一个新图形
    
30.     Set objNewDoc = acadapp.Documents.Open(App.Path & "\Gallery\预热带中段.dwg")
    
31.     copy_moveSset "NEW1", 232, Val(copy_move.yc_2.Text), "0"
    
32.     moveSset "NEW1", yqc
    
33. '打开最后一个图形
    
34.     Set objLastDoc = acadapp.Documents.Open(App.Path & "\Gallery\预热带后段.dwg")
    
35.     copy_moveSset "NEW1", 232, Val(copy_move.yc_3.Text), "0"
    
36.     moveSset "NEW1", yzc + yqc
    
37.    Set objNewDoc = acadapp.ActiveDocument
    
38. ' 将外部图形的实体复制到当前图形
    
39.    Set ssetobj = CreateSelectionSet
    
40.    ssetobj.Select acSelectionSetAll
    
41.   acadapp.ActiveDocument.CopyObjects ssArray(ssetobj), objCurDoc.ModelSpace
    
42.   objCurDoc.Regen acAllViewports
    
43. ' 关闭打开的图形
    
44.   objNewDoc.Close (False)
    
45.    Set objLastDoc = acadapp.ActiveDocument
    
46.    Set ssetobj = CreateSelectionSet
    
47.    ssetobj.Select acSelectionSetAll
    
48.    acadapp.ActiveDocument.CopyObjects ssArray(ssetobj), objCurDoc.ModelSpace
    
49.    objCurDoc.Regen acAllViewports
    
50.    objLastDoc.Close (False)
    
51. 
    
52. Case Option1(1).Value
    
53.       AutoCAD_Appliaction
    
54. ' 打开第一张图
    
55.     Set objCurDoc = acadapp.Documents.Open(App.Path & "\Gallery\烧成带前段.dwg")
    
56.     copy_moveSset "NEW1", 232, Val(copy_move.sc_1.Text), "0"
    
57. ' 打开一个新图形
    
58.     Set objNewDoc = acadapp.Documents.Open(App.Path & "\Gallery\烧成带保温段.dwg")
    
59.     copy_moveSset "NEW1", 183, Val(copy_move.sc_2.Text), "0"
    
60.     moveSset "NEW1", sqc
    
61. 
    
62.    Set objNewDoc = acadapp.ActiveDocument
    
63. ' 将外部图形的实体复制到当前图形
    
64.    Set ssetobj = CreateSelectionSet
    
65.    ssetobj.Select acSelectionSetAll
    
66.   acadapp.ActiveDocument.CopyObjects ssArray(ssetobj), objCurDoc.ModelSpace
    
67.   objCurDoc.Regen acAllViewports
    
68. ' 关闭打开的图形
    
69.   objNewDoc.Close (False)
    
70.   
    
71. Case Option1(2).Value
    
72.   AutoCAD_Appliaction
    
73. ' 打开第一张图
    
74.     Set objCurDoc = acadapp.Documents.Open(App.Path & "\Gallery\急冷段.dwg")
    
75.     copy_moveSset "NEW1", 232, Val(copy_move.lc_1.Text) - 1, "0"
    
76. ' 打开一个新图形
    
77.     Set objNewDoc = acadapp.Documents.Open(App.Path & "\Gallery\缓冷段.dwg")
    
78.     copy_moveSset "NEW1", 232, Val(copy_move.lc_2.Text), "0"
    
79.     moveSset "NEW1", jlc
    
80. '打开最后一个图形
    
81.     Set objNewDoc = acadapp.Documents.Open(App.Path & "\Gallery\快冷段.dwg")
    
82.     copy_moveSset "NEW1", 232, Val(copy_move.lc_3.Text), "0"
    
83.     moveSset "NEW1", jlc + hlc
    
84.    Set objNewDoc = acadapp.ActiveDocument
    
85. ' 将外部图形的实体复制到当前图形
    
86.    Set ssetobj = CreateSelectionSet
    
87.    ssetobj.Select acSelectionSetAll
    
88.   acadapp.ActiveDocument.CopyObjects ssArray(ssetobj), objCurDoc.ModelSpace
    
89.   objCurDoc.Regen acAllViewports
    
90. ' 关闭打开的图形
    
91.    objNewDoc.Close (False)
    
92.    Set objLastDoc = acadapp.ActiveDocument
    
93.    Set ssetobj = CreateSelectionSet
    
94.    ssetobj.Select acSelectionSetAll
    
95.    acadapp.ActiveDocument.CopyObjects ssArray(ssetobj), objCurDoc.ModelSpace
    
96.    objCurDoc.Regen acAllViewports
    
97.    objLastDoc.Close (False)
    
98. End Select
    
99. End Sub

<br /> '各带总图装配<br /> Private Sub Command6_Click()<br /> copy_move.yc_1.Text = yaolucanshu.yc_1.Text<br /> copy_move.yc_2.Text = yaolucanshu.yc_2.Text<br /> copy_move.yc_3.Text = yaolucanshu.yc_3.Text<br /> copy_move.sc_1.Text = yaolucanshu.sc_1.Text<br /> copy_move.sc_2.Text = yaolucanshu.sc_2.Text<br /> copy_move.lc_1.Text = yaolucanshu.lc_1.Text<br /> copy_move.lc_2.Text = yaolucanshu.lc_2.Text<br /> copy_move.lc_3.Text = yaolucanshu.lc_3.Text<br /> copy_move.mjyc.Caption = Val(yaolucanshu_1.mjc.Text) + Val(yaolucanshu_1.jlc.Text)<br /> Dim yqc As Double, yzc As Double, sqc As Double, jlc As Double, hlc As Double<br />     yqc = 232 * Val(yaolucanshu.yc_1.Text)<br />     yzc = 232 * Val(yaolucanshu.yc_2.Text)<br />     sqc = 232 * Val(yaolucanshu.sc_1.Text)<br />     jlc = 232 * Val(yaolucanshu.lc_1.Text)<br />     hlc = 232 * Val(yaolucanshu.lc_2.Text)<br /> Dim objCurDoc As AcadDocument<br /> Dim objNewDoc As AcadDocument<br /> Dim objLastDoc As AcadDocument<br /> Select Case True<br /> Case Option1(0).Value<br />    <a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>_Appliaction<br /> ' 打开第一张图<br />     Set objCurDoc = acadapp.Documents.Open(App.Path & "\Gallery\预热带前段.dwg")<br />     copy_moveSset "NEW1", 232, Val(copy_move.yc_1.Text), "0"<br /> ' 打开一个新图形<br />     Set objNewDoc = acadapp.Documents.Open(App.Path & "\Gallery\预热带中段.dwg")<br />     copy_moveSset "NEW1", 232, Val(copy_move.yc_2.Text), "0"<br />     moveSset "NEW1", yqc<br /> '打开最后一个图形<br />     Set objLastDoc = acadapp.Documents.Open(App.Path & "\Gallery\预热带后段.dwg")<br />     copy_moveSset "NEW1", 232, Val(copy_move.yc_3.Text), "0"<br />     moveSset "NEW1", yzc + yqc<br />    Set objNewDoc = acadapp.ActiveDocument<br /> ' 将外部图形的实体复制到当前图形<br />    Set ssetobj = CreateSelectionSet<br />    ssetobj.Select acSelectionSetAll<br />   acadapp.ActiveDocument.CopyObjects ssArray(ssetobj), objCurDoc.ModelSpace<br />   objCurDoc.Regen acAllViewports<br /> ' 关闭打开的图形<br />   objNewDoc.Close (False)<br />    Set objLastDoc = acadapp.ActiveDocument<br />    Set ssetobj = CreateSelectionSet<br />    ssetobj.Select acSelectionSetAll<br />    acadapp.ActiveDocument.CopyObjects ssArray(ssetobj), objCurDoc.ModelSpace<br />    objCurDoc.Regen acAllViewports<br />    objLastDoc.Close (False)<br /> <br /> Case Option1(1).Value<br />       AutoCAD_Appliaction<br /> ' 打开第一张图<br />     Set objCurDoc = acadapp.Documents.Open(App.Path & "\Gallery\烧成带前段.dwg")<br />     copy_moveSset "NEW1", 232, Val(copy_move.sc_1.Text), "0"<br /> ' 打开一个新图形<br />     Set objNewDoc = acadapp.Documents.Open(App.Path & "\Gallery\烧成带保温段.dwg")<br />     copy_moveSset "NEW1", 183, Val(copy_move.sc_2.Text), "0"<br />     moveSset "NEW1", sqc<br /> <br />    Set objNewDoc = acadapp.ActiveDocument<br /> ' 将外部图形的实体复制到当前图形<br />    Set ssetobj = CreateSelectionSet<br />    ssetobj.Select acSelectionSetAll<br />   acadapp.ActiveDocument.CopyObjects ssArray(ssetobj), objCurDoc.ModelSpace<br />   objCurDoc.Regen acAllViewports<br /> ' 关闭打开的图形<br />   objNewDoc.Close (False)<br />   <br /> Case Option1(2).Value<br />   AutoCAD_Appliaction<br /> ' 打开第一张图<br />     Set objCurDoc = acadapp.Documents.Open(App.Path & "\Gallery\急冷段.dwg")<br />     copy_moveSset "NEW1", 232, Val(copy_move.lc_1.Text) - 1, "0"<br /> ' 打开一个新图形<br />     Set objNewDoc = acadapp.Documents.Open(App.Path & "\Gallery\缓冷段.dwg")<br />     copy_moveSset "NEW1", 232, Val(copy_move.lc_2.Text), "0"<br />     moveSset "NEW1", jlc<br /> '打开最后一个图形<br />     Set objNewDoc = acadapp.Documents.Open(App.Path & "\Gallery\快冷段.dwg")<br />     copy_moveSset "NEW1", 232, Val(copy_move.lc_3.Text), "0"<br />     moveSset "NEW1", jlc + hlc<br />    Set objNewDoc = acadapp.ActiveDocument<br /> ' 将外部图形的实体复制到当前图形<br />    Set ssetobj = CreateSelectionSet<br />    ssetobj.Select acSelectionSetAll<br />   acadapp.ActiveDocument.CopyObjects ssArray(ssetobj), objCurDoc.ModelSpace<br />   objCurDoc.Regen acAllViewports<br /> ' 关闭打开的图形<br />    objNewDoc.Close (False)<br />    Set objLastDoc = acadapp.ActiveDocument<br />    Set ssetobj = CreateSelectionSet<br />    ssetobj.Select acSelectionSetAll<br />    acadapp.ActiveDocument.CopyObjects ssArray(ssetobj), objCurDoc.ModelSpace<br />    objCurDoc.Regen acAllViewports<br />    objLastDoc.Close (False)<br /> End Select<br /> End Sub