anqiong518 发表于 2004-11-16 21:08:00

谢谢，高手，搞定了，强。


高手，可以交个朋友吗？


我是个学生

雪山飞狐_lzh 发表于 2004-11-16 21:08:00

你引用AutoCad的类型库了么？


没有的话这样：


Dim acadapp As Object<BR>Private Sub Command1_Click()<BR>Call 连接AutoCAD<BR>End Sub<BR>Public Sub 连接AutoCAD()<BR>On Error Resume Next<BR>Set acadapp = GetObject(, "AutoCAD.Application")<BR>If Err.Number Then<BR>               MsgBox (Err.Description)<BR>               Err.Clear<BR>               Set acadapp = CreateObject("AutoCAD.Application")<BR>End If<BR>End Sub<BR>
页: 1 [2]
查看完整版本: 请教高手，VB怎么可以连上CAD呢？