|
|
马上注册,结识高手,享用更多资源,轻松玩转三维网社区。
您需要 登录 才可以下载或查看,没有帐号?注册
x
Public AcadApp As AcadApplication/ u5 ?: c+ p, h+ X: ~+ \% ?9 `
Public Sub ConCad()
* X$ p) @1 q0 ^+ s% A& ^6 H! K6 AOn Error Resume Next: {! O6 i/ l5 \! Q( t1 M- q
Set AcadApp = GetObject(, "AutoCAD.Application")% `6 a% }2 r# v/ P: B: v9 F- _
If Err Then& e8 z' T0 r/ |0 X, k
Err.Clear
8 o4 U7 X- q$ \' H0 M' K: D Set AcadApp = CreateObject("autocad.application")8 J c# ~2 @/ k% Y7 O) t7 M
If Err Then' t% H# h. _; i2 u# x. W
MsgBox ("不能运行AUTOCAD,请检查是否安装了AUTOCAD")
- a" P. ?, v8 T( S Exit Sub
6 t$ R; h8 B0 } End If" }/ h9 ?) B' M( ^ ^4 d' F" G
End If
0 j# N% m$ m& \* vAcadApp.Visible = True/ S2 P) a7 D* H: O
End Sub5 e& @( i {6 G
9 V9 \0 z [) d" H. B这是我找到的调用的方法,但是运行由它生成的exe文件时提示
~" Z* b' W3 f“不能运行AUTOCAD,请检查是否安装了AUTOCAD”
. ?* B0 ^. z. Q, s; @. N在VB里试运行时显示第一句就出错“编译错误,找不到工程或库”/ v" G5 p) E! Y" K# t1 G
请各位大哥大姐帮忙解决一下!! |
|