插入失败

尼玛的臭屌丝

2. Private Sub CommandButton6_Click()
   
3. Dim i&
   
4. Dim insertionPnt(0 To 2) As Double
   
5. Dim blockRefObj As AcadBlockReference
   
6. Dim blockRefObj1 As AcadBlockReference
   
7. Dim Obj1 As Object
   
8. On Error Resume Next
   
9. insertionPnt(0) = 0#: insertionPnt(1) = 0#: insertionPnt(2) = 0#
   
10. Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(insertionPnt, "C:\Program Files (x86)\AutoCAD 2007\块.dwg", 1#, 1#, 1#, 0)’在第二个dwg文档内插入失败。除非关闭所有CAD。
    
11. For Each Obj1 In ThisDrawing.ModelSpace
    
12. If Obj1.Name = "块" Then Obj1.Delete
    
13. Next
    
14. Set blockRefObj = Nothing
    
15. CR:
    
16. i = i + 1
    
17. Set blockRefObj1 = ThisDrawing.ModelSpace.InsertBlock(ThisDrawing.Utility.GetPoint, "超级数据拾取", 1#, 1#, 1#, 0)
    
18.    Dim varAttributes As Variant
    
19.     varAttributes = blockRefObj1.GetAttributes
    
20.     varAttributes(0).TextString = i & "#"
    
21. If CheckKey(VK_ESCAPE) = True Then
    
22.      varAttributes(0).TextString = i - 1 & "#"
    
23.        Exit Sub
    
24. End If
    
25. 'If CheckKey(VK_SHIFT) = True Then
    
26. 
    
27.    GoTo CR
    
28. 'End If
    
29. End Sub
    

Private Sub CommandButton6_Click()<br /> Dim i&<br /> Dim insertionPnt(0 To 2) As Double<br /> Dim blockRefObj As AcadBlockReference<br /> Dim blockRefObj1 As AcadBlockReference<br /> Dim Obj1 As Object<br /> On Error Resume Next<br /> insertionPnt(0) = 0#: insertionPnt(1) = 0#: insertionPnt(2) = 0#<br /> Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(insertionPnt, "C:\Program Files (x86)\<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a> 2007\块.dwg", 1#, 1#, 1#, 0)’在第二个dwg文档内插入失败。除非关闭所有CAD。<br /> For Each Obj1 In ThisDrawing.ModelSpace<br /> If Obj1.Name = "块" Then Obj1.Delete<br /> Next<br /> Set blockRefObj = Nothing<br /> CR:<br /> i = i + 1<br /> Set blockRefObj1 = ThisDrawing.ModelSpace.InsertBlock(ThisDrawing.Utility.GetPoint, "超级数据拾取", 1#, 1#, 1#, 0)<br />    Dim varAttributes As Variant<br />     varAttributes = blockRefObj1.GetAttributes<br />     varAttributes(0).TextString = i & "#"<br /> If CheckKey(VK_ESCAPE) = True Then<br />      varAttributes(0).TextString = i - 1 & "#"<br />        Exit Sub<br /> End If<br /> 'If CheckKey(VK_SHIFT) = True Then<br /> <br />    GoTo CR<br /> 'End If<br /> End Sub<br />

该贴已经同步到 尼玛的臭屌丝的微博

流星蔡园

第二次插入不需要路径和".dwg"，即
Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(insertionPnt, "块", 1#, 1#, 1#, 0)