求组加实体的码源？

zilong136

由于平时工常经常会用到组功能，所以经常要用组加实体对象的命令，目前最理想的是源泉，但有个小小的遗憾就是不支持框选，希望哪个大神能忙改写下面这串代码？

• (defun c:addToGroup (/ ss entList groupObj groupData newGroupData)
•   ;; 获取用户选择的实体对象
•   (setq ss (ssget))
•   (if (= (sslength ss) 0)
•     (princ "\n没有选择任何对象。")
•     (progn
•       ;; 获取用户输入的组名
•       (setq groupObj (getstring "\n请输入组名: "))
•       ;; 检查组是否存在
•       (if (setq groupData (dictsearch (namedobjdict "AcadGroups") groupObj))
•         (progn
•           ;; 遍历选择集，将每个实体对象添加到组中
•           (repeat (sslength ss)
•             (setq entList (ssname ss (setq i (- i 1))))
•             (setq newGroupData (list entList (cons 330 groupData)))
•             ;; 更新组数据
•             (dictadd (namedobjdict "AcadGroups") groupObj newGroupData)
•           )
•           (princ (strcat "\n已将对象添加到组 " groupObj " 中。"))
•         )
•         (princ (strcat "\n组 " groupObj " 不存在。"))
•       )
•     )
•   )
•   (princ)
• )
  

飞雪神光

你在论坛上搜索了么

飞雪神光

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=183866&highlight=group
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=70454&fromuid=285366
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=112463

zilong136

飞雪神光 发表于 2024-3-29 09:10
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=183866&highlight=group
http://bbs.mjtd.com/forum.p ...

谢谢，不过我还是没找到组加实体的代码

飞雪神光

这里面都是你跟我说找不到

magicheno

感谢大佬分享

zilong136

飞雪神光 发表于 2024-3-29 18:43
这里面都是你跟我说找不到

没一个能用的

飞雪神光

哦吼  你这个代码在AutoCAD上都运行不了 namedobjdict 这个函数参数不对 而且 函数开头 就是多选 怎么就不能框选了

飞雪神光

你这代码好像AI写的 函数用的不对 i 也没有赋值 根本不能运行

zilong136

飞雪神光 发表于 2024-3-29 18:43
这里面都是你跟我说找不到

那个G神的就是新建组，不是组加实体。源泉有，但不支持框选。
你这几个网站大部分我不能运行。如果你发现是组加实体的话，你也可以支持复制过来。再次感谢。