社区 › VBA/VB/ActiveX/API 编程技术 › [求助]菜鸟求助

beijiao 发表于 2006-12-25 09:49:00

[求助]菜鸟求助

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

liyuwen 发表于 2006-12-25 09:59:00

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

兰州人 发表于 2006-12-25 11:25:00

<p>通用的VB起动Autocad程序如下：</p><p>Public Sub AutoCADConnect()&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '连接AutoCAD<br/>On Error Resume Next<br/>Set obj_Acad = GetObject(, "autocad.application")<br/>If Err Then<br/>&nbsp;&nbsp; Err.Clear<br/>&nbsp;&nbsp; On Error Resume Next<br/>&nbsp;&nbsp; Set obj_Acad = CreateObject("autocad.application")<br/>&nbsp;&nbsp; If Err Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Err.Clear<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox "不能运行AutoCAD,请检查是否安装！", vbOKCancel, "警告！"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit Sub<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>End If<br/>obj_Acad.Visible = True<br/>Set obj_Doc = obj_Acad.ActiveDocument<br/>Set obj_ModelSpace = obj_Doc.ModelSpace<br/>MsgBox "运行结束！", vbOKOnly, "工程1！"<br/>boo = True<br/>End Sub<br/>再将ＶＢＡ程序的thisdrawing 替换为obj_ModelSpace </p><p>再对dim 定义的线段,圆等，如 dim objLine As AcadLine 替换为dim objLine as Object</p><p>８０％的ＶＢＡ程序在ＶＢ程序中都能正常运转</p>

查看完整版本: [求助]菜鸟求助