[分享]：快速剪切图形

ghl_729

只要你画出一个范围  ，这个范围之外的东西全部被删除
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;                   ;;多边形剪切;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:ksjc()

  (princ "\n欢迎使用快捷剪切程序！命令名：ksjc=== mdjchy ghl  2009.12.18===")
  
  (setq pt (getpoint "\n 指定第一点:"))
  (command "pline")
  (while pt
       (command pt)
       (setq pt (getpoint pt "\n 指定下一点（回车自动闭合）:"))
   )
  (command "c")
  
    ;;;;;;;;;;;;;;;;裁剪;;;;;;;;;;;;;;;;;;;

   (setq ma (ssname (ssget "L") 0))
   (command "offset" 0.2 ma -1 "")
   (setq mb (ssname (ssget "L") 0))
   (setq bb (entget mb))
   (setq d1 nil)
   (setq nn1 (length bb) k2 1)
   (while (< k2 nn1)
    (if (= 10 (car ( nth k2 bb)))
     (progn
        (setq x (nth 1 (nth k2 bb)))
        (setq y (nth 2 (nth k2 bb)))
        (setq d1 (cons (list x y) d1))
      )
     )
     (setq k2 (+ 1 k2))
   
   )
   (setq mn1 (length d1))
   (setq km 0)
    (while (< km (- mn1 1))
      (progn
         (setq pt3 (nth km d1))
         (setq km1 (+ 1 km))
         (setq pt4 (nth km1 d1))
         (command "trim" ma "" "f" pt3 pt4 "" "")
       )
      (setq km (+ 1 km))
    )
  


  ;;;;;;;;;;;;;;删除;;;;;;;;;;;;;;;;;
  (setq kn 1)
  (command "erase" "all" "r" "cp" )
  (setq pt1 (nth 0 d1))
  (command pt1)
  (while (< kn mn1)

   
     (progn
      (setq pt1 (nth kn d1))
      (command pt1)
     )
   
    (setq kn (+ 1 kn))
   )
  (command "" "")



(command "erase" ma "" "")
(command "erase" mb "" "")

)


欢迎指教

ALU

好东东！学习学习一下。

黄河之水

方法值得学习,用外不会很大

tjchkys

用extrim好象就能裁的挺利索

hn-wqh

仅能删除多边形以外的实体,好象没有裁剪功能。

lcl19811125

我是用EXTRIM，CAD的超级修剪

hehaidizhi

嗯，貌似不好用 啊，咋框外的都删除了啊

daierfull

太强了，全删没有，这图没法用了

相信自己666

能不能批量剪切，比如有一张大图，让它分为5个小图，选中这5个小图区域框，把这5张图之外的全剪切掉，可以吗？能不能把这个功能给加上，谢谢！

xdcad2019

好东东！学习学习一下。

zjl521

好东东！学习学习一下。