fengjian11 发表于 2010-11-28 10:51:00

[求助]如何用lisp创建未命名编组

创建编组时，只有打开对话框才能创建未命名的编组，输入-g不能创建，哪位高手指点下

Gu_xl 发表于 2010-11-29 11:43:01

本帖最后由 Gu_xl 于 2010-11-29 12:59 编辑


(defun gxl-Sel-SS->AX:Array (ss / c r en)
(vl-load-com)
(setq c -1)
(repeat (sslength ss)
    (setq en (ssname ss (setq c (1+ c))))
    (if (entget en)
    (setq r (cons en r))
      )
    )
(setq r (reverse r))
(vlax-safearray-fill
    (vlax-make-safearray
      vlax-vbObject
      (cons 0 (1- (length r)))
    )
    (mapcar 'vlax-ename->vla-object r)
)
);;;Creat Unname Group

(vla-AppendItems (vla-add (vla-get-Groups (vla-get-activedocument(vlax-get-acad-object))) "*") (gxl-Sel-SS->AX:Array (ssget)))

fengjian11 发表于 2010-11-28 23:12:26

自己回复一个，不要沉底

cnks 发表于 2010-11-29 00:06:21

(command "-group"
             ""
             "*"
             ""
             ss
             ""
      )

Gu_xl 发表于 2010-11-29 11:42:41

(setq groupobj(vla-add (vla-get-Groups (vla-get-activedocument(vlax-get-acad-object))) "*"))

fengjian11 发表于 2010-11-29 12:30:24

谢谢，我这就试一下

skg123 发表于 2019-4-26 20:19:52

Gu_xl 发表于 2010-11-29 11:43


感谢 G版主，测试可以用。

碎玉す全瓦 发表于 2020-9-3 16:10:57

G版这个真好，之前要批量生成带编组的图元，特别的慢，用了G版的这个，秒成。

gowww 发表于 2021-4-19 22:47:19

建未命名编组
页: [1]
查看完整版本: [求助]如何用lisp创建未命名编组