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

似乎在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

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

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

autocad的思路有点怪

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

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

123

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

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

我到是有个想法：提取系统的时间作为组名。比方：GName=format(time,"mmss")


                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       Set        a        =        ThisDrawing.Groups.Add(gname).


这样应该不会有重复吧？！


<BR>
页: [1]
查看完整版本: 如何创建无名组，或者说创建一个新组（不重名）