VBA如何新建图形

jjww123

我执行自己写的画图程序。。。第一次执行还好。。第二次执行后的图就重叠在第一次画的那个图上了。。
7 }' y4 o1 H; `8 {
, z1 j! @8 }1 O' c* ^4 ~用什么语句命令可以新建图形。。。保证每次画图都是独立的？

请高手指导~~谢谢！

mimimao383

第二次执行前需首先给出要画图的坐标，如果循环作图，相应的坐标应该循环给出。
1 J; @- N$ Q. X把你的程序拿出来看看，版主会给你指导的。

jjww123

我的意思是。。每次我运行程序，都要在新建。。。然后建立新图
% o% p# h" c/ @* S1 Y
* G1 A* U! a4 j, t* _
如果不这么做，就会每次运行的图都重合在一起，必须要新建，，建立新图一下，才行，，

' |) X5 M9 i" Y( ~* C现在我想知道的是如何用VBA命令。。建立一个新图，不用我再去手动点击那个新建。。

maoyangmy

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

wang_509

加入如下语句：
Dim doc As AcadDocument
Set doc = AutoCAD.Application.Documents.Add

woaishuijia

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

1.     Dim Doc As AcadDocument
   
2.     Set Doc = ThisDrawing.Application.Documents.Add()
   % R3 Q( y7 s  ]" n

复制代码

还可以写成

1.     Dim Doc As AcadDocument
   0 Z0 N8 q& j) o
2.     Set Doc = Documents.Add()
   8 r2 A5 ~3 h/ x& S" X

复制代码

这是因为，在ACAD的VBA中，AutoCAD.Application是全局对象，使用它的方法和属性时可以省略
, W# ~" m- F" ~% H, C4 K; t0 p2 o二、如果在VB或其它应用程序的VBA中调用ACAD，首先应该保证有一个正在运行的ACAD进程，完整的代码可以这样写

1.     Dim CAD As AcadApplication, Doc As AcadDocument
   ( j0 q6 c7 P5 R4 R# a; g- C
2.     On Error Resume Next
   ; z0 {, K0 ]' X3 x2 ?0 P
3.     Set CAD = GetObject(, "autocad.application")
   1 k) }- B! o+ M4 ?/ _* U
4.     If Err Then
   ; d. ]' U( K5 O$ C
5.         Set CAD = CreateObject("autocad.application")
   
6.         Err.Clear
   
7.     End If
   
8.     CAD.Visible = True
   6 \3 t+ y5 O: A
9.     Set Doc = CAD.Documents.Add()

复制代码

157787698

原帖由 woaishuijia 于 2009-3-13 06:06 发表 http://www.3dportal.cn/discuz/images/common/back.gif
' q- ?& f* _+ y8 R, F  s! v补充几点
一、如果是在ACAD的VBA中新建文档，可以写成楼上的形式，并在这个用Doc变量引用的新文档中进行画图操作。也可以写成这样的形式    Dim Doc As AcadDocument
    Set Doc = ThisDrawing.Application.Docum ...

) _$ E4 e% G& e0 t; {$ |3 ]4 Z
如果要设置新建文件的模版，在那里添加？
: J* R/ k, j, f. x) r7 k
+ j! x- p; ?9 z7 h2 o% ]: C7 V; Y在括号里面加入吗？

157787698

Set doc = AutoCAD.Application.Documents.Add("ACADISO.DWT")
+ T" X6 T. |  I+ N
+ D, }0 d' E  r. J% K可以实现新建指定模版（ACADISO.DWT）的文件

suncy

感觉很复杂