QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 2681|回复: 7
收起左侧

[已解决] VB调用MDT?

[复制链接]
发表于 2007-5-24 20:05:27 | 显示全部楼层 |阅读模式 来自: 中国福建福州

马上注册,结识高手,享用更多资源,轻松玩转三维网社区。

您需要 登录 才可以下载或查看,没有帐号?注册

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# ^请各位大哥大姐帮忙解决一下!!
 楼主| 发表于 2007-5-24 21:12:59 | 显示全部楼层 来自: 中国福建福州
有人知道的吗?
9 D/ Y2 A' {- D2 }" G7 k  N/ g' |不然问一下大家都是怎么用VB调用CAD的?
发表于 2007-5-27 20:46:57 | 显示全部楼层 来自: 中国浙江宁波
在VB环境中选择 工程-引用 出现“引用”对话框,选中AutoCAD2000(或更高版本) Type Library 的复选框,试试看,如果还不行,问题可能出现类名AutoCAD.Application上。
发表于 2007-5-28 02:43:13 | 显示全部楼层 来自: 中国上海
试试把类名改成这样 “AutoCAD.Application.17”
. V# w/ m$ E; F' E2 O当然,版本不一样,后面数字也不一样
发表于 2007-5-28 06:19:38 | 显示全部楼层 来自: 中国
按3楼所说选中CAD类型库后,程序中用如下代码:
* h7 g. |# }9 y3 [$ h
+ E* Y9 Z" b* d0 Q! BDim A As AcadApplication2 j3 Y3 x! s2 u. s
Set A = New AcadApplication
2 u  x  a* t3 D/ A+ I0 iA.Visible = True7 B3 V/ d- m8 r- h
A.Quit) g' o, g7 [: k9 {

' ?. L* {6 s( a  n' {$ {2 E用F8逐语句运行一下就能看到结果
0 T# i5 f+ J% B( L5 g/ |6 [1 T( Y7 r0 }$ E
也可以用
# P7 G8 X( i0 u; |0 ^1 Q) NDim A As AcadDocument' O) x: g/ s  Z, _/ R( E& X' D4 a
Set A = New AcadDocument9 r6 Y+ X- d3 y$ B. T( o. l
0 ]5 M3 {2 W. t
[ 本帖最后由 woaishuijia 于 2007-5-28 06:33 编辑 ]
 楼主| 发表于 2007-6-1 21:05:20 | 显示全部楼层 来自: 中国福建福州
已解决,谢谢各位!!
发表于 2007-6-24 19:37:21 | 显示全部楼层 来自: 中国广东
学习,但没怎么看懂。
发表于 2007-6-25 22:25:10 | 显示全部楼层 来自: 中国江苏无锡
请教,你是怎么解决的?
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表