|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
Public AcadApp As AcadApplication
7 f/ L( P+ d2 XPublic Sub ConCad()
8 h$ E! N7 w7 K9 ^On Error Resume Next$ j* K8 i1 T3 L, L, X) F& z( W
Set AcadApp = GetObject(, "AutoCAD.Application")& O& c) p2 r2 h% H# Y9 W0 D+ w
If Err Then
6 }4 Z, C4 S; c3 i5 @; p, { Err.Clear% V( w- V# a5 R; a* }
Set AcadApp = CreateObject("autocad.application")% M8 Z. G" H6 }4 d* ^1 y* B" y' n9 E
If Err Then
5 Q" L% O; r' i) V7 |7 n! V MsgBox ("不能运行AUTOCAD，请检查是否安装了AUTOCAD"), `8 R# P/ N0 T0 y0 u8 d, P
Exit Sub9 R$ A& C& R. L3 [" ?; E2 ^
End If
. g9 P/ o* Z2 K8 r3 UEnd If
- b$ w4 I% o. _ P, j4 n: l. kAcadApp.Visible = True
+ Z* [* d2 l, A" N" o End Sub
& o5 O! l4 }) ] d3 ~& e
; A) x% L1 S2 A这是我找到的调用的方法，但是运行由它生成的exe文件时提示
: Q) U6 n+ e7 c) g. u U% l“不能运行AUTOCAD，请检查是否安装了AUTOCAD”: m& C5 T8 K) ~: ^' s# z/ e) M$ j3 u
在ＶＢ里试运行时显示第一句就出错“编译错误，找不到工程或库” ~9 }$ ]! h: ^, u$ P/ T% d
请各位大哥大姐帮忙解决一下！！ |
|
发表于 2007-5-24 20:05:27
楼主
发表于 2007-5-27 20:46:57
发表于 2007-5-28 06:19:38