求： 筛选图层、颜色、图案名、角度相同的填充

fengyu6913

求： 筛选图层、颜色、图案名、角度相同的填充


样图如附件。第一步点选要筛选的填充，第二步框选要查找的范围，第三步亮显选中的填充
在论坛上找了好久，可能是检索的关键字不准

yaojing38

2. (defun c:tt (/ ent jd bl ss1 tc ys)
   
3.   (vl-load-com)
   
4.   (setq ent (car(entsel "\n选取填充：")))
   
5.   (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 (/ ent jd bl ss1 tc ys)<br />   (vl-load-com)<br />   (setq ent (car(entsel "\n选取填充：")))<br />   (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))))))))))

ssyfeng

选择易应该可以满足你的要求，论坛搜索一下

xyp1964

1. (defun c:tt ()
   
2.   (defun xyp-dxf (c e) (cdr (assoc c (entget e))))
   
3.   (if (setq s1 (car (entsel "\n选取填充: ")))
   
4.     (progn
   
5.       ;;图层、颜色、图案名、角度相同
   
6.       (setq la (xyp-DXF 8 s1)
   
7.             co (xyp-DXF 62 s1)
   
8.             hn (xyp-DXF 2 s1)
   
9.             r  (xyp-DXF 52 s1)
   
10.             a  (list '(0 . "HATCH") (cons 8 la) (cons 62 co) (cons 2 hn) (cons 52 r))
    
11.             a  (vl-remove-if '(lambda (x) (= (cdr x) nil)) a)
    
12.       )
    
13.       (sssetfirst nil (ssget a))
    
14.     )
    
15.   )
    
16.   (princ)
    
17. )

(defun c:tt ()<br />   (defun xyp-dxf (c e) (cdr (assoc c (entget e))))<br />   (if (setq s1 (car (entsel "\n选取填充: ")))<br />     (progn<br />       ;;图层、颜色、图案名、角度相同<br />       (setq la (xyp-DXF 8 s1)<br />             co (xyp-DXF 62 s1)<br />             hn (xyp-DXF 2 s1)<br />             r  (xyp-DXF 52 s1) <br />             a  (list '(0 . "HATCH") (cons 8 la) (cons 62 co) (cons 2 hn) (cons 52 r)) <br />             a  (vl-remove-if '(lambda (x) (= (cdr x) nil)) a)<br />       )<br />       (sssetfirst nil (ssget a))<br />     )<br />   )<br />   (princ)<br /> )

fengyu6913

xyp1964 发表于 2025-1-16 18:08

大佬的程序学习了，DXF简洁高效
DXF还是大佬才能自由运用

fengyu6913

ssyfeng 发表于 2025-1-16 15:37
选择易应该可以满足你的要求，论坛搜索一下

感谢指点！

fengyu6913

yaojing38 发表于 2025-1-16 14:40

感谢大佬帮助解决

xyp1964

yaojing38 发表于 2025-1-16 14:40

41码是啥？感觉不符合题意

yaojing38

xyp1964 发表于 2025-1-17 14:36
41码是啥？感觉不符合题意

填充的角度，是52吗？我用了好像可以

xyp1964

yaojing38 发表于 2025-1-17 14:50
填充的角度

角度不是52？