[编程申请]：一个超级减切命令

haojia

申请一个超级减切命令，此命令的特点是-------输入命令，提示选择一个框选范围，框选范围确定以后，在这个框选范围内的所有线段都会被减切掉（块可以不包括在内）。一定要是减切掉，框选范围以外的线段都不变，如果整跟线都在框选范围内，那么就整跟先删除，如果只有部分在框选范围内，那么线段就会根据框选范围自动减切。还有就是最好连标注也可以一起减开。填充就不计算在内了。

我认为这个命令会很常用，至少我渴望这个命令很久了，做方案设计的同学没一定都会喜欢这个命令。不用减切线段减得那么累了，而且把炸开命令也可以淘汰了，对制图很有帮助，但是至今本人还没有找到这样的命令。类似的有过，但都不理想，希望各位高手能够重视这个问题，写一些给大家有帮助的程序。谢谢。各位希望得到这样命令的同学门也帮忙增加人气啊。

自由的鱼

CADMAP的地图工具可以满足你的要求！

by666

最好编一个，就像microstation中的fence功能，好强

大雪无痕

在CAD 2002中能用吗

Free-Lancer

AutoCAD只是最基本的平台，加上 Map、Civil 等很多可以不用再编程的

xzg_hello

acad2002版以前的扩展集里面都有这工具，2005版就没了

haojia

在论坛上有为高手写了这个程序，我也得到了，现在在这里拿来跟大家分享。真的很好用。是xyp1964写的。
;;;修剪和删除平面图矩形框内的物体。
(defun c:cut1 (/ p1 p2 p3 p4 dst ang p1a p2a p3a p4a lst)
  (cmdla0)
  (setq    p1 (getpoint "\n选择矩形框的第一角：")
    p2 (getcorner p1 "\n选择矩形框的另一角：")
  )
  (setvar "osmode" 0)
  (command "undo" "be")
  (command "rectang" p1 p2)
  (setq lst (entlast))
  (setq    p3  (list (car p2) (cadr p1))
    p4  (list (car p1) (cadr p2))
    dst (/ (distance p1 p2) 100.0)
    ang (angle p1 p2)
    p1a (polar p1 ang dst)
    p2a (polar p2 ang (- 0 dst))
    p3a (list (car p2a) (cadr p1a))
    p4a (list (car p1a) (cadr p2a))
  )
  (command "_.trim" lst "" "f" p1a p3a p2a p4a p1a "" "")
  (if (= txt5 "1")
    (command "_erase" "all" "_r" "_c" p1 p2 "")
    (command "_erase" "_w" p1 p2 "")
  )
  (command "rectang" p1 p2)
  (command "undo" "e")
  (cmdla1)
)
(defun CMDLA0 ()
  (setq cmd (getvar "CMDECHO"))
  (setq oom (getvar "orthomode"))
  (setq osm (getvar "osmode"))
  (setq hlt (getvar "highlight"))
  (setq rmode (getvar "regenmode"))
  (setvar "regenmode" 0)
  (setvar "CMDECHO" 0)
  (princ)
)
(defun CMDLA1 ()
  (setvar "CMDECHO" cmd)
  (setvar "orthomode" oom)
  (setvar "osmode" osm)
  (setvar "highlight" hlt)
  (setvar "regenmode" rmode)
  (princ)
)
;;;END