社区 › AutoLISP/Visual LISP 编程技术 › 关于group组的一个问题

changyiran 发表于 2014-12-16 23:13:15

关于group组的一个问题

如何不用group命令做到新建一个组并能向该组中添加图元对象，请大家指教。

Gu_xl 发表于 2014-12-17 09:10:37

(if (setq s (ssget))
(progn
    (repeat (setq n (sslength s))
      (setq r (cons (ssname s (setq n (1- n))) r))
    )
    (vla-AppendItems
      (vla-add (vla-get-groups
               (vla-get-ActiveDocument (vlax-get-acad-object))
               )
               "*" ;;创建无名组
      )
      (vlax-make-variant
      (vlax-safearray-fill
          (vlax-make-safearray
            vlax-vbObject
            (cons 0 (1- (length r)))
          )
          (mapcar 'vlax-ename->vla-object r)
      )
      )
    )
)
)

changyiran 发表于 2014-12-17 21:41:49

RE: 关于group组的一个问题

Gu_xl 发表于 2014-12-17 09:10 static/image/common/back.gif


g版神人呐，非常感谢。

自贡黄明儒 发表于 2014-12-17 21:49:30

Gu_xl 发表于 2014-12-17 09:10


是不是再来个entmake的？

zilong136 发表于 2024-3-29 15:02:17

本帖最后由 zilong136 于 2024-3-29 15:35 编辑

Gu_xl 发表于 2014-12-17 09:10

很强，
自已写个快捷键就OK了，
能不能写一个组加实体对象的代码？

查看完整版本: 关于group组的一个问题