[求助]菜鸟求助

beijiao

VBA的语句在VB里面能用吗,

liyuwen

不能照搬，需作一定的修改方可！

兰州人

通用的VB起动Autocad程序如下：

Public Sub AutoCADConnect()        '连接AutoCAD
On Error Resume Next
Set obj_Acad = GetObject(, "autocad.application")
If Err Then
   Err.Clear
   On Error Resume Next
   Set obj_Acad = CreateObject("autocad.application")
   If Err Then
      Err.Clear
      MsgBox "不能运行AutoCAD,请检查是否安装！", vbOKCancel, "警告！"
      Exit Sub
      End If
End If
obj_Acad.Visible = True
Set obj_Doc = obj_Acad.ActiveDocument
Set obj_ModelSpace = obj_Doc.ModelSpace
MsgBox "运行结束！", vbOKOnly, "工程1！"
boo = True
End Sub
再将ＶＢＡ程序的thisdrawing 替换为obj_ModelSpace

再对dim 定义的线段,圆等，如 dim objLine As AcadLine 替换为dim objLine as Object

８０％的ＶＢＡ程序在ＶＢ程序中都能正常运转