|
发表于 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 编辑 ] |
|