langjs 发表于 2011-2-13 13:03:17

[求助]将图纸中编组名为“PC_PAPER_DIC”的图元自动全选该怎么做？

将图纸中编组名为“PC_PAPER_DIC”的图元自动全选并付给选择集SS，该怎么编写这个程序？

Gu_xl 发表于 2011-2-13 13:59:07

本帖最后由 Gu_xl 于 2011-2-13 14:05 编辑


(defun c:tt ( / dctl tmp len ename enl ss)
(setqGrpName "PC_PAPER_DIC")
(setq ss (ssadd))
(setq
dctl (dictsearch (namedobjdict) "ACAD_GROUP")
ename nil
)
(if dctl
(progn
(setq
len (length dctl)
tmp (member (cons 3 (strcase GrpName)) dctl)
)
(if tmp
(setq ename (cdr (nth (1+ (- len (length tmp))) dctl)))
)
))
(if ename
(progn
(setq enl (entget ename))
(foreach a enl
    (if (= 340 (car a))
      (ssadd (cdr a) ss)
      )
    )
ss
)
)
)



langjs 发表于 2011-2-14 12:13:08

谢谢楼上，经过测试，好用

zcsoft 发表于 2024-3-18 22:24:33

这样是不是就全选择了隐藏在字典里的图元了？
页: [1]
查看完整版本: [求助]将图纸中编组名为“PC_PAPER_DIC”的图元自动全选该怎么做？