[求助]怎样用lisp建立未命名组?

shun

group命令可建立命名或未命名组,它是通过对话框选项来实现的.但是用lisp来实现未命名的组,如何实现?请朋友帮助!

BDYCAD

(vl-cmdf "-group" "create" "*" "" (ssget) "") ; 制作无名组  

shun

多谢你的帮助

飞诗(fsxm)

用vlisp写的，适合在反应器 or DCL中调用

;;用 [选择集/obj表] 做成一个组
(defun fsxm-add-group (ss/objlst group_name / Group)
  (setq ss/objlst (if (listp ss/objlst)
      (fsxm-list->variant ss/objlst vlax-vbObject)
      (fsxm-ss->variant ss/objlst)
    )
  )

  (setq group (vla-add (vla-get-groups *doc*) group_name))
  (vla-AppendItems group ss/objlst) group
)

做无名组格式：

(fsxm-add-group ss "*")

详见：http://fsxm.bokee.com/