[LISP程序]：小工具：自动建组（gg）、选物删组（gx）

eachy

我的工具集提供了组操作的多数应用，vlx 文件，没有限制。

[组选开关]
[单选开关]
[组 制 作]
[去组定义]
[两组合并]
[组删实体]
[组移实体]
[组添实体]

myrooms

楼上，你的工具集在什么地方啊？

eachy

最初由 myrooms 发布
[B]楼上，你的工具集在什么地方啊？ [/B]

独立加载文件。菜单组中的部分
[php]             [->组选工具(&G)]
ID_EzGroupOnof   [组选开关]^PEa:GroupOnOf
ID_EzGroupSOnOf  [单选开关]^PEa:GroupSOnOf
ID_EzGroupMake   [组 制 作]^PEa:GroupMake
ID_EzGroupDel    [去组定义]^PEa:GroupDel
ID_EzGroupMerge  [两组合并]^PEa:GroupMerge
ID_EzGroupDelEnt [组删实体]^PEa:GroupDelEnt
ID_EzGroupRemEnt [组移实体]^PEa:GroupRemoveEnt
ID_EzGroupAddEnt [<-组添实体]^C^C^P_XGroupAddEnt[/php]

xjlmlxbq

eachy斑竹的作品就是精品

andyhua5240

eachy斑主：
那个独立加载文件，菜单组中的部分
那一串代码应该放在哪个位置呀？不会用呀？55555555555555555555
谢谢！

neo

楼主的group工具的标识为hhmmss,如果是不同日期的同时间创建会不会有问题呢？？

bddlwzh

如果将几个汉字编为一个组,能不能对其进行集中编辑?就象编辑由TEXT生成的一行文字一样.

eachy

最初由 bddlwzh 发布
[B]如果将几个汉字编为一个组,能不能对其进行集中编辑?就象编辑由TEXT生成的一行文字一样. [/B]

不能。你可以用连接文字使之成为一体。

bddlwzh

组是一个实体吗，如何用程序获得其实体数据？

urljit

最初由 neo 发布
[B]楼主的group工具的标识为hhmmss,如果是不同日期的同时间创建会不会有问题呢？？ [/B]

会有问题，但是，出现问题的可能有多大呢？本来想用yymmddhhmmss的格式但我从实用角度出发采用了hhmmss，我想还可以吧！

bddlwzh

不要太保守吧？我认为大家都应该互相学习，下面是我今天下午编的一个编组、删组的程序，它仅仅是一个基本框架，更丰富的功能大家可以往里加。
    有一个问题楼上讨论半天我不明白？为什么一定要给编组命名呢？使用未命名的编组（让AUTOCAD自动给出名字*An）不行吗？
(vl-load-com)
(defun C:Mg()
  (setq SSent (ssadd))
  (while (setq Entname (car (entsel)))
    (redraw Entname 3)
    (ssadd Entname SSent)
  )
  (vl-cmdf "group" "c" "ABC" "互相帮助" SSent "")
)
(defun C:Eg()
  (setvar "pickstyle" 1)
  (setq SSent (ssget))
  (setq Group1 (ssname SSent 0))
  (setq GroupEnt (entget(cdr(assoc 330 (entget Group1)))))
  (setq GroupName (cdr (assoc 3 (entget (cdr (assoc 330 (entget (cdr (assoc 330 (entget Group1))))))))))
  (vl-cmdf "group" "e" GroupName)
)

urljit

最初由 eachy 发布
[B]
不能。你可以用连接文字使之成为一体。 [/B]

好像可以编辑吧！我从前就编辑过，虽然文字在某个组中，但可以编辑它的内容。

eachy

最初由 urljit 发布
[B]
好像可以编辑吧！我从前就编辑过，虽然文字在某个组中，但可以编辑它的内容。 [/B]

他说的是像一个字一样，直接到 DDEDIT 的框中。

hi71400

啊，气愤！
收币还限次呀？！

urljit

不好意思，限次使用是因为你没有注册