[求助]：请问在LISP内如何判断图块是否经过XCLIP处理?

Wildcat

请问在LISP内如何判断图块是否经过XCLIP处理?
例如:A为一图块(未经xclip处理,复制A得出B,然后对A进行xclip处理,
分别查看两者的DXF码,和(vlax-dump-object obj T),无法观察到其的区别.

请问如何对其进行判断呢?最好还能得出其xclip处理的数据,谢谢.

mn1k

;; Based on code by John Uhden 4/16/2005.
;; Argument: a block reference ename or vla-object.
;; Returns: the xclip boundary WCS point list if the block is clipped,
;; otherwise nil.
(defun GetClipBoundary (obj / xdict filter spatial elst ptlst)
  (if (= (type obj) 'ENAME)
    (setq obj (vlax-ename->vla-object obj))
  )
  (setq        elst
         (vl-catch-all-apply
           '(lambda ()
              (setq xdict (vla-getextensiondictionary obj))
              (setq filter (vla-getobject xdict "ACAD_FILTER"))
              (setq spatial (vla-getobject filter "SPATIAL"))
              (entget (vlax-vla-object->ename spatial))

            )
         )
  )
  (princ elst)
  (princ "\n")
  (if (not (vl-catch-all-error-p elst))
    (foreach x elst
      (if (eq 10 (car x))
        (setq ptlst (cons (cdr x) ptlst))
      )
    )
  )
  ptlst

)
                                        ;end[/code]

carrot1983

学习一下二楼的代码。。。

另外

1. 
   
2. xclip后的图元信息：
   
3. (-1 . <图元名: 7ef72038>)
   
4. (0 . "INSERT")
   
5. (5 . "FF")
   
6. [COLOR=orangered]
   
7. (102 . "{ACAD_XDICTIONARY")
   
8. (360 . <图元名: 7ef72048>)
   
9. (102 . "}")
   
10. (330 . <图元名: 7ef63cf8>)
    
11. [/COLOR]
    
12. (100 . "AcDbEntity")
    
13. (67 . 0)
    
14. (410 . "Model")
    
15. (8 . "0")
    
16. (100 . "AcDbBlockReference")
    
17. (2 . "1")
    
18. (10 867.12 486.241 0.0)
    
19. (41 . 1.0)
    
20. (42 . 1.0)
    
21. (43 . 1.0)
    
22. (50 . 0.0)
    
23. (70 . 0)
    
24. (71 . 0)
    
25. (44 . 0.0)
    
26. (45 . 0.0)
    
27. (210 0.0 0.0 1.0)
    
28. 
    
29. 未xclip：
    
30. (-1 . <图元名: 7ef72038>)
    
31. (0 . "INSERT")
    
32. (330 . <图元名: 7ef63cf8>)
    
33. (5 . "FF")
    
34. (100 . "AcDbEntity")
    
35. (67 . 0)
    
36. (410 . "Model")
    
37. (8 . "0")
    
38. (100 . "AcDbBlockReference")
    
39. (2 . "1")
    
40. (10 867.12 486.241 0.0)
    
41. (41 . 1.0)
    
42. (42 . 1.0)
    
43. (43 . 1.0)
    
44. (50 . 0.0)
    
45. (70 . 0)
    
46. (71 . 0)
    
47. (44 . 0.0)
    
48. (45 . 0.0)
    
49. (210 0.0 0.0 1.0)
    

复制代码