求： 筛选图层、颜色、图案名、角度相同的填充
求： 筛选图层、颜色、图案名、角度相同的填充样图如附件。第一步点选要筛选的填充，第二步框选要查找的范围，第三步亮显选中的填充
在论坛上找了好久，可能是检索的关键字不准
本帖最后由 yaojing38 于 2025-1-17 14:57 编辑
(defun c:tt (/ ent jd bl ss1 tc ys)
(vl-load-com)
(setq ent (car(entsel "\n选取填充：")))
(sssetfirst nil (setq ss1 (ssget (vl-remove nil (list '(0 . "HATCH") (setq tc (assoc 8 (entget ent))) (if (setq jd (assoc 52 (entget ent))) jd) (if (setq ys (assoc 62 (entget ent))) ys (assoc 62 (entget(tblobjname "LAYER" (cdr tc))))))))))
选择易应该可以满足你的要求，论坛搜索一下 (defun c:tt ()
(defun xyp-dxf (c e) (cdr (assoc c (entget e))))
(if (setq s1 (car (entsel "\n选取填充: ")))
(progn
;;图层、颜色、图案名、角度相同
(setq la (xyp-DXF 8 s1)
co (xyp-DXF 62 s1)
hn (xyp-DXF 2 s1)
r(xyp-DXF 52 s1)
a(list '(0 . "HATCH") (cons 8 la) (cons 62 co) (cons 2 hn) (cons 52 r))
a(vl-remove-if '(lambda (x) (= (cdr x) nil)) a)
)
(sssetfirst nil (ssget a))
)
)
(princ)
) xyp1964 发表于 2025-1-16 18:08
大佬的程序学习了，DXF简洁高效
DXF还是大佬才能自由运用 ssyfeng 发表于 2025-1-16 15:37
选择易应该可以满足你的要求，论坛搜索一下
感谢指点！ yaojing38 发表于 2025-1-16 14:40
感谢大佬帮助解决 yaojing38 发表于 2025-1-16 14:40
41码是啥？感觉不符合题意 本帖最后由 yaojing38 于 2025-1-17 14:51 编辑
xyp1964 发表于 2025-1-17 14:36
41码是啥？感觉不符合题意
填充的角度，是52吗？我用了好像可以 yaojing38 发表于 2025-1-17 14:50
填充的角度
角度不是52？
页:
[1]
2