难题求教！如何判断一个图块是否被裁剪

xiaocainiao

求教一下各位大神、如何判断出一个图块或参照是否被裁剪、

找了好久也没找到相应组码、CAD文件我放到附件里面了，


求各位大神支招、感谢

xj6019

(cdr(assoc 3(entget(cdr(assoc 360 (entget (car(entsel))))))))   试试这个

xj6019

裁剪过的块会 多个这玩意吧
(102 . "{ACAD_XDICTIONARY")

xiaocainiao

xj6019 发表于 2022-11-11 18:28
裁剪过的块会 多个这玩意吧
(102 . "{ACAD_XDICTIONARY")

我之前是用102这个判断的、但是你看我附件提供的两个块、上面那个没裁剪的也有102这个东西、所以现在就没法用这个判断了

tigcat

;判断图中是否有剪裁块
(vla-getobject (vla-getextensiondictionary (vlax-ename->vla-object (car (entsel)))) "ACAD_FILTER")

xiaocainiao

xj6019 发表于 2022-11-11 19:18
(cdr(assoc 3(entget(cdr(assoc 360 (entget (car(entsel))))))))   试试这个

谢谢、这个可以、我刚刚在晓东上面也看到类似代码了、不过他还加了一个71组码的判断、我没懂是啥意思

2. ;;移除剪裁块的剪裁边界
   
3. ;;(gxl-RemoveXclip (car(entsel)))
   
4. (defun gxl-RemoveXclip (en2 / IsXClip el)
   
5.   ;;判断图元是否为剪裁块
   
6.   (defun IsXClip (en2 / xdict)
   
7.     (if (setq xdict (cdr (assoc 360 (entget en2))))
   
8.                         (IsXClip xdict)
   
9.                         (if
   
10.                                 (and
    
11.                                         (eq "SPATIAL_FILTER"
    
12.                                                 (cdr (assoc 0 (setq en2 (entget en2))))
    
13.                                         )
    
14.                                         (eq 1 (cdr (assoc 71 en2)))
    
15.                                 )
    
16.                                 en2
    
17.                         )
    
18.                 )
    
19.         )
    
20.   (if (setq el (IsXClip en2))
    
21.     (progn
    
22.                         (entmod (subst (cons 71 0) (cons 71 1) el))
    
23.                         (entupd en2)
    
24.     )
    
25.         )
    
26. )
    
27. ;;测试命令
    
28. (defun c:tt ()
    
29.   (while
    
30.     (setq e (car (entsel "\n选择剪裁块:")))
    
31.                 (gxl-RemoveXclip e)
    
32.         )
    
33.   (princ)
    
34. )

;;移除剪裁块的剪裁边界<br /> ;;(gxl-RemoveXclip (car(entsel)))<br /> (defun gxl-RemoveXclip (en2 / IsXClip el)<br />   ;;判断图元是否为剪裁块<br />   (defun IsXClip (en2 / xdict)<br />     (if (setq xdict (cdr (assoc 360 (entget en2))))<br />                         (IsXClip xdict)<br />                         (if<br />                                 (and<br />                                         (eq "SPATIAL_FILTER"<br />                                                 (cdr (assoc 0 (setq en2 (entget en2))))<br />                                         )<br />                                         (eq 1 (cdr (assoc 71 en2)))<br />                                 )<br />                                 en2<br />                         )<br />                 )<br />         )<br />   (if (setq el (IsXClip en2))<br />     (progn<br />                         (entmod (subst (cons 71 0) (cons 71 1) el))<br />                         (entupd en2)<br />     )<br />         )<br /> )<br /> ;;测试命令<br /> (defun c:tt ()<br />   (while<br />     (setq e (car (entsel "\n选择剪裁块:")))<br />                 (gxl-RemoveXclip e)<br />         )<br />   (princ)<br /> )

xj6019

好用就行  代码能套就套

xiaocainiao

xj6019 发表于 2022-11-11 19:32
好用就行  代码能套就套

试了好几个图块、貌似只靠这一行代码不太管用、明天再试试晓东上面的代码吧、还是谢谢你了

xyp1964

(defun RemoveXclip (s1 / en)
  (setq en (entget s1))
  (if (and (= (cdr (assoc 0 en)) "INSERT")
           (assoc 102 en)
           (assoc 360 en)
      )
    (command "xclip" s1 "" "d")
  )
)

xiaocainiao

xyp1964 发表于 2022-11-12 11:56
(defun RemoveXclip (s1 / en)
  (setq en (entget s1))
  (if (and (= (cdr (assoc 0 en)) "INSERT")

我已经找到方法了、还是要谢谢你