如何创建无名组，或者说创建一个新组（不重名）

zhaoguo · 发表于 2003-6-6 17:10:00

efan2000 · 发表于 2003-6-6 18:58:00

mccad · 发表于 2003-6-6 21:07:00

http://www.mjtd.com/a2/list.asp?id=358

zhaoguo · 发表于 2003-6-8 17:26:00

似乎在autocad2000中行不通。

mccad · 发表于 2003-6-8 17:29:00

zhaoguo · 发表于 2003-6-8 18:21:00

本帖最后由作者于 2003-6-8 18:21:07 编辑

本来在autocad r14.01中用得很好，想升级到autocad2000就出现了错误：
-----
实时错误'-2147418113(8000ffff)'
方法'Add'作用于对象'IAcadGroups'时失败。

在autocad2000中以下代码就行不通，但在autocad r14.01中没有问题。
Sub aaa()
Dim a As AcadGroup
Set a = ThisDrawing.Groups.Add("*")
End Sub

mccad · 发表于 2003-6-8 19:36:00

zhaoguo · 发表于 2003-6-9 08:33:00

按照常规，低版本有的功能，高版本应该更好，更不应该没有，真不知道cad怎么搞的！如果用vba或vb编的程序只能针对单一版本，其通用性也太差了。比如explode就不能打碎blockdef(R14.01),insertblock在2000中必须手工修改增加z比例系数，cad为什么不能考虑其中的兼容性呢？

zzlzz · 发表于 2003-6-12 11:32:00

autocad本身就很没人性，否则也没我们这么多事了。用用photoshop，用用office，哎，就一个cad，一天到晚弄些用不上的功能，最简单的不去搞，一点也不方便。不知道是天才还是白痴。

Royal_cad · 发表于 2004-4-11 23:54:00

我到是有个想法：提取系统的时间作为组名。比方：GName=format(time,"mmss") Set a = ThisDrawing.Groups.Add(gname). 这样应该不会有重复吧？！

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

如何创建无名组，或者说创建一个新组（不重名）

将名称设为“*”作为参数，即可创建匿名组

二次开发栏目有相关答案

关于autocad2000

你有没有试过，如果有问题，有什么提示

错误提示

我这里没有2000版，但在2002、2004版都没有问题

autocad的思路有点怪

123