三维网

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

作者: zytom    时间: 2007-5-24 20:05
标题: VB调用MDT?
Public AcadApp As AcadApplication* Z6 S% i3 j* c* v: Q; Z; [
Public Sub ConCad()
7 i* A, _6 ?8 N, X# XOn Error Resume Next  i& o2 G0 ?6 o& o0 W2 c0 ]
Set AcadApp = GetObject(, "AutoCAD.Application")( _7 m* n% Q$ _0 v+ D3 b. ]
If Err Then' O& f) L3 }- X% v6 j& ]
   Err.Clear+ q$ S9 E! B$ I$ Q$ u
   Set AcadApp = CreateObject("autocad.application")
; W- O0 _7 }0 q- N' G1 `0 t: {   If Err Then0 @7 J6 a$ _" e$ R# `5 ~, J/ h
     MsgBox ("不能运行AUTOCAD,请检查是否安装了AUTOCAD"). z3 U& }$ S* |
     Exit Sub7 ^) R& e2 N" e- \9 d  j3 ~
   End If
/ q" ~8 ]0 F( t6 i7 {3 {End If. G, G0 X* v8 W" }
AcadApp.Visible = True
  c" F9 K( z3 K/ A6 m End Sub
0 [; \! h8 G/ f. |" \: u4 @  
  `" ~6 p- x$ G% }8 A" Q这是我找到的调用的方法,但是运行由它生成的exe文件时提示, S5 y4 S6 H5 n3 K5 f4 z2 h
“不能运行AUTOCAD,请检查是否安装了AUTOCAD”
1 D% e; F, w5 Z# @# [0 l在VB里试运行时显示第一句就出错“编译错误,找不到工程或库”8 e! q0 o; d1 x1 ^9 v, C
请各位大哥大姐帮忙解决一下!!
作者: zytom    时间: 2007-5-24 21:12
有人知道的吗?# m. D. A8 i8 _/ Y
不然问一下大家都是怎么用VB调用CAD的?
作者: sealive_leafage    时间: 2007-5-27 20:46
在VB环境中选择 工程-引用 出现“引用”对话框,选中AutoCAD2000(或更高版本) Type Library 的复选框,试试看,如果还不行,问题可能出现类名AutoCAD.Application上。
作者: gneful    时间: 2007-5-28 02:43
试试把类名改成这样 “AutoCAD.Application.17”
7 i6 t. V& D. G: d7 F4 l当然,版本不一样,后面数字也不一样
作者: woaishuijia    时间: 2007-5-28 06:19
按3楼所说选中CAD类型库后,程序中用如下代码:& x- l+ f  z6 |6 d$ j
5 t+ V( M* ~6 i; I% `
Dim A As AcadApplication
. t2 P& ]2 r9 l1 a2 M0 @Set A = New AcadApplication  m6 n9 J- a! v4 t
A.Visible = True* c: \5 Q6 `, V; d: u
A.Quit' N1 n, I# o& T: ?
2 V7 @  k. i6 ?$ V( g* Q" L
用F8逐语句运行一下就能看到结果5 H. ?, Y3 ?: N( U8 ]2 Z
8 t7 Z/ W0 @/ B. P4 {5 ?
也可以用
" j' B! u$ D+ D* NDim A As AcadDocument
0 p3 W0 @( b0 c; a8 h2 i6 _Set A = New AcadDocument& I7 J3 b, B5 ]/ Y% O! f
% t5 l) h: g- R
[ 本帖最后由 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