anqiong518 发表于 2004-11-16 19:34:00

请教高手，VB怎么可以连上CAD呢？

我试了半天，


Private Sub Command1_Click()<BR>Dim acadapp As AutoCAD.AcadApplication<BR>Call 连接AutoCAD<BR>End Sub<BR>Public Sub 连接AutoCAD()<BR>On Error Resume Next<BR>Set acadapp = GetObject(, "AutoCAD.AcadApplication")<BR>If Err.Number Then<BR>               Err.Clear<BR>               Set acadapp = CreateObject("AutoCAD.AcadApplication")<BR>               MsgBox (Err.Description)<BR>End If<BR>End Sub


它总提示ActiveX对象无法创建


这是怎么回事呢？

雪山飞狐_lzh 发表于 2004-11-16 19:36:00

AutoCAD.Application

anqiong518 发表于 2004-11-16 19:45:00

再麻烦您一下

您能说的具体点，或者，看一下我上面的那段程序吗？


这段程序，是从书上抄的，可是总是说ActixeX对象无法创建，郁闷死了

登山 发表于 2004-11-16 19:48:00

Dim acadapp As AutoCAD.AcadApplication<BR>错了.应该放在通用里面,或者建个模块


改为Dim acadapp As AcadApplication<BR>连接AutoCAD()也放在模块里面便于调用<BR>

雪山飞狐_lzh 发表于 2004-11-16 19:54:00

Set acadapp = GetObject(, "AutoCAD.Application")


Set acadapp = CreateObject("AutoCAD.Application")


哪本书上的？

anqiong518 发表于 2004-11-16 19:55:00

这样也不行呀

Dim acadapp As AcadApplication<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.AcadApplication")<BR>If Err.Number Then<BR>               Err.Clear<BR>               Set acadapp = CreateObject("AutoCAD.AcadApplication")<BR>               MsgBox (Err.Description)<BR>End If<BR>End Sub



错误提示


ActiveX 部件不能创建对象

anqiong518 发表于 2004-11-16 19:57:00

高手，教我

书上原来的是没有set，这样有影响吗？

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

看看我在5楼发的贴！！！！

anqiong518 发表于 2004-11-16 20:16:00

您的意思是去掉set吗？


可是还是不行

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

是将那个，改成autocad.application吗？


还是不行呀
页: [1] 2
查看完整版本: 请教高手，VB怎么可以连上CAD呢？