求救.........关于AutuCAD2002中文版

china-hz

用insertblock方法插入外部图块时，在AutoCAD2002英文版一切正常，但在AutoCAD2002中文版中却不正常，但也未见错误提示，请指教。
Dim insertpt(0 To 2) As Double
    insertpt(0) = 0#: insertpt(1) = 0#: insertpt(2) = 0#
Dim blockrefobj As AcadBlockReference
   
    Set blockrefobj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(insertpt, "abc", 1#, 1#, 1#, 0#)
    If Err.number = -2145386445 Then
        Set blockrefobj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(insertpt, "d:\abc\abc.dwg", 1#, 1#, 1#, 0#)
    End If

china-hz

再问：大家在AutoCAD2002中文版、VB中的insertblock方法能正常运行吗？是不是有的中文版破解不完整呀？

myfreemind

看你的程序没有什么问题,应该是破解的问题!

mccad

1.可能中文版与英文版的出错代码有所不同。
2.你的程序中没有On Error Resume Next语句。
3.要保存所需要的文件存在于指定的目录。

2. Sub InsBlk()
   
3.     Dim AcadApp As AcadApplication
   
4.     Set AcadApp = ThisDrawing.Application
   
5.     Dim insertpt(0 To 2) As Double
   
6.     insertpt(0) = 0#: insertpt(1) = 0#: insertpt(2) = 0#
   
7.     Dim blockrefobj As AcadBlockReference
   
8.     On Error Resume Next
   
9.     Set blockrefobj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(insertpt, "abc", 1#, 1#, 1#, 0#)
   
10.     If Err.Number = -2145386445 Or Err.Number = -2147418113 Then
    
11.         Set blockrefobj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(insertpt, "d:\abc.dwg", 1#, 1#, 1#, 0#)
    
12.     End If
    
13.    
    
14. End Sub
    

Sub InsBlk()<br />     Dim AcadApp As AcadApplication<br />     Set AcadApp = ThisDrawing.Application<br />     Dim insertpt(0 To 2) As Double<br />     insertpt(0) = 0#: insertpt(1) = 0#: insertpt(2) = 0#<br />     Dim blockrefobj As AcadBlockReference<br />     On Error Resume Next<br />     Set blockrefobj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(insertpt, "abc", 1#, 1#, 1#, 0#)<br />     If Err.Number = -2145386445 Or Err.Number = -2147418113 Then<br />         Set blockrefobj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(insertpt, "d:\abc.dwg", 1#, 1#, 1#, 0#)<br />     End If<br />     <br /> End Sub<br />

china-hz

版主所言极是，问题已经解决，多谢！