VBA如何新建图形

jjww123 · 发表于 2009-3-11 15:54:13

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

我执行自己写的画图程序。。。第一次执行还好。。第二次执行后的图就重叠在第一次画的那个图上了。。

用什么语句命令可以新建图形。。。保证每次画图都是独立的？

请高手指导~~谢谢！

mimimao383 · 发表于 2009-3-11 18:13:13

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

jjww123 · 发表于 2009-3-12 14:17:22

我的意思是。。每次我运行程序，都要在新建。。。然后建立新图

如果不这么做，就会每次运行的图都重合在一起，必须要新建，，建立新图一下，才行，，

现在我想知道的是如何用VBA命令。。建立一个新图，不用我再去手动点击那个新建。。

maoyangmy · 发表于 2009-3-12 16:49:05

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

wang_509 · 发表于 2009-3-12 20:30:48

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

woaishuijia · 发表于 2009-3-13 06:06:27

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

Dim Doc As AcadDocument
/ [9 U% H) \( ^0 E
Set Doc = ThisDrawing.Application.Documents.Add() S# C* }( x) Q

复制代码

还可以写成

Dim Doc As AcadDocument
7 a, p# n3 D$ U
Set Doc = Documents.Add()9 h2 S( ~, `; E7 [

复制代码

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

Dim CAD As AcadApplication, Doc As AcadDocument
$ H6 Q* @! \2 D3 ~! ~. V6 h) R
On Error Resume Next
" ~& B- p' h7 u7 e& O4 ~
Set CAD = GetObject(, "autocad.application")
9 {+ s7 f3 e- m L# k5 c, @' t; t
If Err Then: D9 N; w# h( l% P) V3 E4 V
Set CAD = CreateObject("autocad.application")
# V! [ x3 m3 j8 ?4 G x K
Err.Clear
0 G( J+ \* E' X0 G
End If
& t; f: x( k( p+ t3 G4 |" m4 V) o. B
CAD.Visible = True- d+ H. R& O- U5 P! w! B
Set Doc = CAD.Documents.Add()

复制代码

157787698 · 发表于 2009-11-4 14:03:22

原帖由 woaishuijia 于 2009-3-13 06:06 发表 http://www.3dportal.cn/discuz/images/common/back.gif5 U8 Y, e& D( d2 d# U% O& [1 I
补充几点
8 s' G- m; l$ E" C7 D3 x, [; d一、如果是在ACAD的VBA中新建文档，可以写成楼上的形式，并在这个用Doc变量引用的新文档中进行画图操作。也可以写成这样的形式 Dim Doc As AcadDocument" e0 o1 y, m( C- J" ~) k' _& E- i" |
Set Doc = ThisDrawing.Application.Docum ...

如果要设置新建文件的模版，在那里添加？

在括号里面加入吗？

157787698 · 发表于 2009-11-5 09:19:36

Set doc = AutoCAD.Application.Documents.Add("ACADISO.DWT")

可以实现新建指定模版（ACADISO.DWT）的文件

suncy · 发表于 2010-12-16 19:37:54

感觉很复杂

qrst036 · 发表于 2010-12-23 13:29:44

提示: 作者被禁止或删除内容自动屏蔽

		自动登录	找回密码
密码			注册

通知

[已答复] VBA如何新建图形

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

评分

浏览过的版块

qrst036 qrst036 当前离线积分 -50 UID 1363644 主题在线时间小时注册时间 2010-12-21 头像被屏蔽	发表于 2010-12-23 13:29:44 \| 显示全部楼层来自：中国辽宁辽阳提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对举报