QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

[已解决] VB调用MDT?

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

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

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

x
Public AcadApp As AcadApplication
6 _5 Z, \2 G2 RPublic Sub ConCad()
" A8 D# S- _" L8 fOn Error Resume Next# g) e" C2 V& T8 S8 [* Z
Set AcadApp = GetObject(, "AutoCAD.Application")
( \1 }4 p/ C# W. P; w0 `2 lIf Err Then7 _1 p2 h4 h: a: w
   Err.Clear
$ |$ w& a9 r8 Y" x( ]1 v   Set AcadApp = CreateObject("autocad.application")( O+ {' t* k* G/ o" E* b1 `0 _
   If Err Then3 l+ T0 ~. M2 j9 N0 P1 v2 D
     MsgBox ("不能运行AUTOCAD,请检查是否安装了AUTOCAD")
+ w% I0 l+ C4 I! F. C$ j     Exit Sub/ y5 Q1 h) Q2 t! z
   End If; ~3 n: {$ H+ e% ~1 b
End If: I1 x1 B' W: {. S
AcadApp.Visible = True* }% D$ d3 b% B' v8 e
End Sub
3 m) c6 d+ W9 G; h$ X4 \5 n  
5 T9 I! O7 B& }" b" ~( @这是我找到的调用的方法,但是运行由它生成的exe文件时提示
* y, m& I  d6 r- n+ I# h“不能运行AUTOCAD,请检查是否安装了AUTOCAD”
9 {5 I" j8 w; M' y+ Q1 w1 F' l在VB里试运行时显示第一句就出错“编译错误,找不到工程或库”  `. z" q& w4 j/ @* D
请各位大哥大姐帮忙解决一下!!
 楼主| 发表于 2007-5-24 21:12:59 | 显示全部楼层 来自: 中国福建福州
有人知道的吗?0 V; t" w' t$ M( ~! Y. E
不然问一下大家都是怎么用VB调用CAD的?
发表于 2007-5-27 20:46:57 | 显示全部楼层 来自: 中国浙江宁波
在VB环境中选择 工程-引用 出现“引用”对话框,选中AutoCAD2000(或更高版本) Type Library 的复选框,试试看,如果还不行,问题可能出现类名AutoCAD.Application上。
发表于 2007-5-28 02:43:13 | 显示全部楼层 来自: 中国上海
试试把类名改成这样 “AutoCAD.Application.17”
! `- ]. ?! K6 M当然,版本不一样,后面数字也不一样
发表于 2007-5-28 06:19:38 | 显示全部楼层 来自: 中国
按3楼所说选中CAD类型库后,程序中用如下代码:
/ C2 o: ^- F. |& U; |9 y) @8 g
, b0 i/ V6 q) d$ TDim A As AcadApplication
" j5 E: K. d1 I% ^! j, ~Set A = New AcadApplication8 S# p& {% S5 ]' V8 e3 x* J' ]
A.Visible = True0 n0 X0 \1 p2 u
A.Quit
; e2 F5 N1 f+ I6 S4 H1 \4 r1 p) I6 r+ a0 N/ g# z
用F8逐语句运行一下就能看到结果' p# U8 Y/ ^( c+ @, ^
) _- \' I' H8 R$ N1 v8 R# U5 Z8 n8 D/ Y
也可以用
2 b: N9 |: n0 c. d, n' f+ CDim A As AcadDocument
# G5 z, Z6 a. L6 {Set A = New AcadDocument
* h; T5 k( s; e. q2 D) U9 z" j* w2 C$ R9 F; R
[ 本帖最后由 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 )

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