tigcat 发表于 2023-4-11 19:29:05

选中剪裁的块(含外部参照)

;by MP
(defun c:GetXc1 (/ en i lst ss ven)
      
      (setq ss (ssget "x" '((0 . "insert"))))
      (setq i -1 lst (ssadd))
      (repeat (sslength ss)
                (setq i (1+ i) en (ssname ss i))
                (setq ven (vlax-ename->vla-object en))
         
(vl-catch-all-apply
       '(lambda ()
          (if
                        (vla-getobject (vla-getextensiondictionary ven) "ACAD_FILTER")
                        (ssadd en lst)
                        
                        
                )
          )
       )
      )
      (sssetfirst nil lst)
      (if lst
                (princ (strcat "\n" "选取了<" (rtos (sslength lst) 2 0) ">个剪裁的参照"))
                (princ "\n未发现剪裁块！")
      )
      (prin1)
)
(prompt "\n****获取剪裁块<c:getxc1>*****")
(prin1)

e2002 发表于 2023-4-12 09:59:12

MP大神的代码吗？关于clip的确实少见，学习了

tigcat 发表于 2023-4-12 12:52:51

e2002 发表于 2023-4-12 09:59
MP大神的代码吗？关于clip的确实少见，学习了

是的，从他那摘录的

菜鸟初来乍到 发表于 2023-8-28 07:50:45

感谢楼主分享

jh3030912 发表于 2023-9-5 00:22:37

有没有裁剪块分解插件

jh3030912 发表于 2023-9-24 14:59:30

怎么获取所有块

lml2023 发表于 2023-10-19 18:53:34

与CAD自带xc有啥区别呢？！

jh3030912 发表于 2024-4-2 22:34:12

怎么分解剪裁块呢？

tigcat 发表于 2024-4-2 23:44:29

jh3030912 发表于 2024-4-2 22:34
怎么分解剪裁块呢？

这个不知道
页: [1]
查看完整版本: 选中剪裁的块(含外部参照)