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

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

;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

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

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

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

是的，从他那摘录的

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

感谢楼主分享

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

有没有裁剪块分解插件

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

怎么获取所有块

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

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

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

怎么分解剪裁块呢？

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

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

这个不知道

账号		自动登录	找回密码
密码			注册

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

评分