请教各位高手,我用vb启动AutoCAD2005后,自动加载自己编写的vba工程,其中要插入图块,可是出错提示说找不到文件,但是我直接启动cad运行却能够顺利插入图块,请高手指教一下啊
插入图块:
Dim luoshuan As AcadBlockReference Dim FPath1 As String Dim titleName1 As String titleName1 = "luoshuan.dwg" FPath1 = CurDir() & "\" & titleName1 Set luoshuan = ThisDrawing.ModelSpace.InsertBlock(pt81, FPath1, 1#, 1#, 1#, 0#)
启动cad用
On Error Resume Next Set acadapp = GetObject(, "AutoCAD.Application") If Err Then Err.Clear Set acadapp = CreateObject("AutoCAD.Application") If Err Then MsgBox ("不能运行AutoCAD程序,请检查是否安装了") Exit Sub End If End If
acadapp.Visible = True
这些都是书上的方法,请问直接启动与用vb启动还有不同吗?急盼高手指点 |