|
马上注册,结识高手,享用更多资源,轻松玩转三维网社区。
您需要 登录 才可以下载或查看,没有帐号?注册
x
Public AcadApp As AcadApplication+ Z# ]/ ^; r2 G& Q) k4 O
Public Sub ConCad()" g7 r/ y% c& w. J' {
On Error Resume Next) `7 P$ P l- B l
Set AcadApp = GetObject(, "AutoCAD.Application")) r5 x& U' s( W% E
If Err Then
' N, D. {2 h0 U; F; V. D Err.Clear
/ u, S# m- Y& e# {# D2 a Set AcadApp = CreateObject("autocad.application")( M" B& d( B: H0 a6 Y6 ~/ U
If Err Then
; |4 c- Z, ~' a( u& M MsgBox ("不能运行AUTOCAD,请检查是否安装了AUTOCAD")
- J2 y8 w3 ^5 w# [7 w6 j$ n Exit Sub
% y! s( ~2 O' m2 e& q% H& }: G- C# n End If6 t5 |( p& ~! i0 F/ }: V
End If' j: H8 S& i' P3 h Z( d0 F
AcadApp.Visible = True* z' z {& {/ K/ x, m
End Sub
( _7 g4 V6 \5 A8 h- x `, T) ^$ S* I. ^: x# [
这是我找到的调用的方法,但是运行由它生成的exe文件时提示
) Q" w& l' e* m, c/ ^9 @“不能运行AUTOCAD,请检查是否安装了AUTOCAD”1 ~+ X3 C$ s! y5 R. x5 A
在VB里试运行时显示第一句就出错“编译错误,找不到工程或库”
! ?/ l1 A4 C; r& y# ^请各位大哥大姐帮忙解决一下!! |
|