zilong136 发表于 2024-3-29 03:29:19

求组加实体的码源？

本帖最后由 zilong136 于 2024-3-29 13:42 编辑

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

[*](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)
[*])

飞雪神光 发表于 2024-3-29 08:59:17

你在论坛上搜索了么

飞雪神光 发表于 2024-3-29 09:10:03

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

本帖最后由 飞雪神光 于 2024-3-29 09:11 编辑

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 15:11:44

本帖最后由 zilong136 于 2024-3-29 15:40 编辑

飞雪神光 发表于 2024-3-29 09:10
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=183866&highlight=group
http://bbs.mjtd.com/forum.p ...
谢谢，不过我还是没找到组加实体的代码

飞雪神光 发表于 2024-3-29 18:43:58

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

magicheno 发表于 2024-3-29 22:18:42

感谢大佬分享

zilong136 发表于 2024-3-29 23:17:07

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

没一个能用的

飞雪神光 发表于 2024-3-30 10:34:50

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

飞雪神光 发表于 2024-3-30 11:17:23

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

zilong136 发表于 2024-3-30 23:36:47

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

那个G神的就是新建组，不是组加实体。源泉有，但不支持框选。
你这几个网站大部分我不能运行。如果你发现是组加实体的话，你也可以支持复制过来。再次感谢。
页: [1] 2
查看完整版本: 求组加实体的码源？