三维网

标题: VB调用MDT? [打印本页]

作者: zytom    时间: 2007-5-24 20:05
标题: VB调用MDT?
Public AcadApp As AcadApplication
0 b& x! A3 ^' s- @4 `Public Sub ConCad()6 J1 Z9 S5 x8 q( g% l" [
On Error Resume Next
7 r4 [# Q/ K, v. L! I) ?Set AcadApp = GetObject(, "AutoCAD.Application")
' V- f' M) d" hIf Err Then0 l% E% G% O6 b  I( t2 C! i
   Err.Clear1 ], Z% b0 b0 [: _) c
   Set AcadApp = CreateObject("autocad.application")
% h7 c  I* N0 \   If Err Then
; ^+ u6 J5 z4 Q7 b     MsgBox ("不能运行AUTOCAD,请检查是否安装了AUTOCAD")( r& P5 s5 j# w2 p) {
     Exit Sub  Y  {! O8 _! W5 A5 v" g
   End If
! L: q+ g( \0 n- h3 rEnd If2 }$ X: R9 B. V: H, X
AcadApp.Visible = True$ K' m3 B3 J6 o3 ^0 Q  r
End Sub+ q  t) D! _: G6 E7 ~
  
) u4 U3 [& A2 K$ L% v这是我找到的调用的方法,但是运行由它生成的exe文件时提示' H4 h4 J# y* }
“不能运行AUTOCAD,请检查是否安装了AUTOCAD”9 \1 ^3 ~, P& n; g3 X- C  S
在VB里试运行时显示第一句就出错“编译错误,找不到工程或库”, p0 U6 D3 C  H5 n$ k2 R. ?
请各位大哥大姐帮忙解决一下!!
作者: zytom    时间: 2007-5-24 21:12
有人知道的吗?
2 p9 O5 N# Q* J4 E% H9 |不然问一下大家都是怎么用VB调用CAD的?
作者: sealive_leafage    时间: 2007-5-27 20:46
在VB环境中选择 工程-引用 出现“引用”对话框,选中AutoCAD2000(或更高版本) Type Library 的复选框,试试看,如果还不行,问题可能出现类名AutoCAD.Application上。
作者: gneful    时间: 2007-5-28 02:43
试试把类名改成这样 “AutoCAD.Application.17”
/ S0 Z% h* H) I7 p& V7 \当然,版本不一样,后面数字也不一样
作者: woaishuijia    时间: 2007-5-28 06:19
按3楼所说选中CAD类型库后,程序中用如下代码:
. F, r) B  R, n, X# @5 b6 e8 m
1 u  _5 M2 Z$ a+ Z+ ^4 x' }Dim A As AcadApplication6 T  U' l, G2 p
Set A = New AcadApplication
3 n; |. R! M1 S: Q$ Q+ vA.Visible = True$ @; @7 ^  V" ~& U# }: X$ u* @  v
A.Quit
. M, c' b- _. S+ ?7 K! R9 o  Y. B7 M% J1 ~3 Y
用F8逐语句运行一下就能看到结果
) ^: K6 q6 `$ K6 c/ \4 w. B& d
也可以用
" h7 G/ ^. @8 R8 a3 ~Dim A As AcadDocument6 Z) K! @( P: q! S+ @
Set A = New AcadDocument+ e8 O9 o# h- r) \
# E5 R# J: \* V7 ]' G, ^
[ 本帖最后由 woaishuijia 于 2007-5-28 06:33 编辑 ]
作者: zytom    时间: 2007-6-1 21:05
已解决,谢谢各位!!
作者: mzb007    时间: 2007-6-24 19:37
学习,但没怎么看懂。
作者: peke    时间: 2007-6-25 22:25
请教,你是怎么解决的?




欢迎光临 三维网 (http://www.3dportal.cn/discuz/) Powered by Discuz! X3.4