[讨论]：做一个自动的裁切程序

小狼

这种直线裁减很简单，而且几乎不会有什么错误
一但与上带高程的曲线，特别是拟合的曲线，比如等高线的计曲线带宽度的，有80%的可能性一次裁减要错几根。
CAD提供的交点不准确，有时手工“INT”都算不出交点，而Map提供的ARX算法很准确，应该是转换了坐标投影后求的交点。
那位仁兄会Map函数的用Map的函数再开发开发啦

njsabc

MAp我不知道怎么用。

myfreemind

我现在裁减都是用MAP

ydf7332462

expresstools中有，查一下。但似无愿代码

walong

(Defun C:EBox (/ pz py pd p1 p2 p3 p4 pa pb tg)
      (PrinC "\n清除指定的矩形区...")
       (SetQ pz (GetPoint "\n左下角点: ") x0 (Car pz) y0 (Cadr pz)
             py (GetCorner pz "\n右上角点: ") x1 (Car py) y1 (Cadr py)
             pd (* 0.005 (Distance pz py))
       )
       (Command "zoom" "w" pz py)
       (SetQ p1 (List (+ x0 pd) (+ y0 pd))
             p2 (List (- x1 pd) (+ y0 pd))
             p3 (List (- x1 pd) (- y1 pd))
             p4 (List (+ x0 pd) (- y1 pd)) ;修剪用的围栏点
       )
       (SetQ pa (List (+ x0 pd pd) (+ y0 pd pd))
             pb (List (- x1 pd pd) (- y1 pd pd))
       )
       (Command "rectang" "f" 0 pz py) ;生成剪切边界框
       (SetQ tg (EntLast)) ;取出边界框对名
       (PrinC "\n开始")
       (SetVar "cmdecho" 0)
       (While (SSGet "c" pa pb) ;如果区域内还有图线...
              (Command "trim" tg "" "f" p1 p2 ""
                                    "f" p2 p1 ""
                                    "f" p2 p3 ""
                                    "f" p3 p2 ""
                                    "f" p3 p4 ""
                                    "f" p4 p3 ""
                                    "f" p4 p1 ""
                                    "f" p1 p4 ""
                                 ""  ;剪切
              )
              (EntDel tg)
              (Command "erase" "w" pz py "") ;删除中间的西
              (PrinC ".")
       )
       (Command "zoom" "p")
       (PrinC " 完成.")(SetVar "cmdecho" 1) (PrinC)
)

陌生人

楼上的，建议程序开始结束设置 undo “be” / “e"
另外，用trim通病是当拟合多义线或spline有多段在选区内会失败。
最好的是打断后在选区内删除实体。

题外话，我觉得你的程序风格似曾相识，有个画截断线的程序，是不是你写的？（相当于减切后移动）

huangwuhome

南方CASS软件在截取方面做的不错

chenhang1203

不行，不能割字，要是能把框内实体保留下来就好了，割图纸就有用了

milsake

就是，到这来的人都是想多学点东西，大家应该尽其所能互相帮助嘛！