|
|
马上注册,结识高手,享用更多资源,轻松玩转三维网社区。
您需要 登录 才可以下载或查看,没有帐号?注册
x
Public AcadApp As AcadApplication
: m9 L* \9 f! d! M; {- LPublic Sub ConCad()
4 T) R* o2 o6 \7 YOn Error Resume Next
/ ?) _; Y3 K. X) B! FSet AcadApp = GetObject(, "AutoCAD.Application")5 [# |% ~! k2 P7 a
If Err Then
- B! {0 ~ Q& P Err.Clear7 X' m" \0 {' U v* q# H
Set AcadApp = CreateObject("autocad.application")
- Q3 Q+ I- s; N |! a4 \ If Err Then
" s1 ~# F5 v) \* w9 z- M( _; g MsgBox ("不能运行AUTOCAD,请检查是否安装了AUTOCAD") \6 c& O8 }6 w; B6 ?
Exit Sub
7 a5 [5 ^ n# k! K End If5 Y6 I% E( N k% T1 B# ~! R6 X( @5 n
End If& d3 Y) V- C+ W1 C \
AcadApp.Visible = True
: m& E9 R) v E7 @; i2 `) q End Sub
9 X4 J) V1 L, K
4 S5 o a( u# k C" }! V这是我找到的调用的方法,但是运行由它生成的exe文件时提示
' `% ~6 U) O; `( ~5 q“不能运行AUTOCAD,请检查是否安装了AUTOCAD”
" Y0 G# D e8 q5 o4 ]6 U; e在VB里试运行时显示第一句就出错“编译错误,找不到工程或库”4 |( P' v- N! D, J9 z% v. P# E6 I
请各位大哥大姐帮忙解决一下!! |
|