社区 › Auto Lisp › 是否可以在g中附加对象

Luís Augusto 发表于 2022-7-5 17:12:16

是否可以在g中附加对象

你好
我正在研究如何使用entmod将对象附加到现有组。有可能吗？
 
有人能举个例子吗？
 
我不想通过entmake重新创建它，只想附加一个对象。
 

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

 
顺致敬意，
路易斯·奥古斯托

Roy_043 发表于 2022-7-5 18:07:44

在BricsCAD中，如果附加已经是组一部分的实体，则不会出错。您应该检查这是否适用于AutoCAD。
; (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
       )
   )
   )
)
)

Luís Augusto 发表于 2022-7-5 18:34:05

Roy_043，
工作完美。
我正在使用AutoCAD 2016。
谢谢你的大力帮助。
顺致敬意，
路易斯·奥古斯托

查看完整版本: 是否可以在g中附加对象