[编程交流] 是否可以在g中附加对象

(defun c:test()  
 (setq groupName "myGroupName"
       ent (entlast)
 )
 (vl-cmdf "._GROUPEDIT" "N" groupName "A" (ENTLAST) "")
)

; (AppendToGroup "MyExistingGroup" (list (car (entsel))))
(defun AppendToGroup (grpNm enmLst / dict grpElst)
 (if
   (and
     (setq dict (cdr (assoc -1 (dictsearch (namedobjdict) "ACAD_GROUP"))))
     (setq grpElst (dictsearch dict grpNm))
   )
   (entmod
     (append
       grpElst
       (mapcar
         '(lambda (enm) (cons 340 enm))
         enmLst
       )
     )
   )
 )
)