VBA如何新建图形

jjww123

我执行自己写的画图程序。。。第一次执行还好。。第二次执行后的图就重叠在第一次画的那个图上了。。
( K. h3 ]) F4 ]2 n; }" z9 N$ b$ B
用什么语句命令可以新建图形。。。保证每次画图都是独立的？
# H2 j2 z: u& i8 H0 Z* _
/ A# Z- F4 j! y) O2 a请高手指导~~谢谢！

mimimao383

第二次执行前需首先给出要画图的坐标，如果循环作图，相应的坐标应该循环给出。
把你的程序拿出来看看，版主会给你指导的。

jjww123

我的意思是。。每次我运行程序，都要在新建。。。然后建立新图
% C& O+ u. @' h6 l9 q) e
1 y) f7 l2 x0 {, M: H
如果不这么做，就会每次运行的图都重合在一起，必须要新建，，建立新图一下，才行，，

. ^+ M. o  Y" O5 F  f现在我想知道的是如何用VBA命令。。建立一个新图，不用我再去手动点击那个新建。。

maoyangmy

将坐标错开，让图形分开不是更好么？

wang_509

加入如下语句：
5 |6 s) G4 U+ m+ Y+ VDim doc As AcadDocument
) e. `' R- R0 Z* {( h Set doc = AutoCAD.Application.Documents.Add

woaishuijia

补充几点
一、如果是在ACAD的VBA中新建文档，可以写成楼上的形式，并在这个用Doc变量引用的新文档中进行画图操作。也可以写成这样的形式

1.     Dim Doc As AcadDocument
   4 C/ d( T" V( `
2.     Set Doc = ThisDrawing.Application.Documents.Add()
   2 D7 C3 J. v( B$ V, o

复制代码

还可以写成

1.     Dim Doc As AcadDocument
   
2.     Set Doc = Documents.Add()
   

复制代码

这是因为，在ACAD的VBA中，AutoCAD.Application是全局对象，使用它的方法和属性时可以省略
$ w; |- A0 u# z二、如果在VB或其它应用程序的VBA中调用ACAD，首先应该保证有一个正在运行的ACAD进程，完整的代码可以这样写

1.     Dim CAD As AcadApplication, Doc As AcadDocument
   2 q. I" A& K, P
2.     On Error Resume Next
   / o1 `/ D- `( S4 Z' z: A8 H# X' Y
3.     Set CAD = GetObject(, "autocad.application")
   : n0 j' q$ q( Y3 E9 c% h* F
4.     If Err Then
   * H$ D/ N9 Y# j6 G) }- M/ V9 l  ^
5.         Set CAD = CreateObject("autocad.application")
   * C8 o& F- q' P$ H7 E
6.         Err.Clear
   , t- ?7 ], g8 }) q
7.     End If
   
8.     CAD.Visible = True
   
9.     Set Doc = CAD.Documents.Add()

复制代码

157787698

原帖由 woaishuijia 于 2009-3-13 06:06 发表 http://www.3dportal.cn/discuz/images/common/back.gif
$ L" Y) g  D' d, Y* h0 Q2 N补充几点
& Q& a( @! e& J5 O一、如果是在ACAD的VBA中新建文档，可以写成楼上的形式，并在这个用Doc变量引用的新文档中进行画图操作。也可以写成这样的形式    Dim Doc As AcadDocument
7 w0 v, a1 |0 d* e; \! }    Set Doc = ThisDrawing.Application.Docum ...

如果要设置新建文件的模版，在那里添加？
, L3 p( C* {; y3 _7 y& I; S) s
在括号里面加入吗？

157787698

Set doc = AutoCAD.Application.Documents.Add("ACADISO.DWT")
7 r: r! o0 B1 m% C, ^
8 q4 B& I6 y7 i) B/ s  |% T可以实现新建指定模版（ACADISO.DWT）的文件

suncy

感觉很复杂