lisp对象编组，group新建编组，lsp创建编组源码

偶然在cad里面发现有的图不是块但是是连在一起的，比如文字线条等，不适用块也能组成一个整体，选择任意一个对象，其整个都被选中，要么使用自定义实体，但是lsp，这个吗，貌似不支持自定义实体，只有C++才有这个功能。于是使用系统自带的编组功能可以实现自定义组合体。系统命令 group

经过不断是折腾，lisp使用编组组合，使用编组功能必须把系统变量pickstyle的值设为1

lisp编组源码例子

(defun c:GG()

(setq SS (ssget));选择对象

(command "-group" "C" "*" "*" SS "")

; (command "-group" "C" "名称" "说明" SS "")

)
复制