[求助]：如何将方框外的删除

qiyu0588

画图时用到地形图一部分，想把自己图诓外的地形线一并删除.

kwok

用extrim  也可以用一些lsp

xyp1964

这样？

aichong

最初由 xyp1964 发布
[B]这样？ [/B]

是啊，这样怎么弄？
注意：若地形图中是用样条曲线画的，能处理吗？

jx2008

是啊，怎么实现呢，最好是框选（任意多边形选择也可以）然后把框之内（多边形之内的）的图形实体存盘怎么实现呢？我这里弄了一个，很笨的方法，见笑了。

请高手指点，最好是屏幕上不出现剪切掉的画面，或者剪切改用交点打断，这样就看不到屏幕上被剪切掉后的空白区了。

(defun c:test (/ p1 p2 p3 p4 dst ang p1a p2a p3a p4a lst)
  (CMDLA0)
  (setq        p1 (getpoint "\n选择矩形框的第一角：")
        p2 (getcorner p1 "\n选择矩形框的另一角：")
  )
  (setvar "osmode" 0)

  (command "rectang" p1 p2)
  (setq        lst  (entlast)
        p3   (list (car p2) (cadr p1))
        p4   (list (car p1) (cadr p2))
        dst  (/ (distance p1 p2) 100.0)
        ang  (angle p1 p2)
  )
    (setq p1a (polar p1 ang (- 0 dst))
          p2a (polar p2 ang dst)
    )
  (setq        p3a (list (car p2a) (cadr p1a))
        p4a (list (car p1a) (cadr p2a))
  )
  (command "_.trim" lst "" "f" p1a p3a p2a p4a p1a "" "")
    (command "_erase" "all" "_r" "_c" p1 p2 "")
  (if (= (setq wrfile (getstring "\n请输入文件名<路径\文件名>: ")) nil)
      (setq wrfile "f:\新建.dwg")
  )
  (command "-wblock" wrfile "*" '(0 0))
  (command "_u")
  (command "_u")
  (command "_u")
  (command "_u")
  (CMDLA1)
)

jiayu1983

三楼的强啊 怎么实现的?

炮二平五

用外部参照，很方便的，XCLIP命令修剪，相当于删除！
这样文件尺寸很小，而且定位准确。又不改变原地形文件。
做规划设计、市政设计经常要这样做。

ynjzlzd

xyp,就怎么看不到你的小程序在那呢

gmyuyu

感觉有点虚幻，我都不知道怎么能弄上这个。听说2006能够直接实现，但是弄了很久都不知道。。。有知道的么？告诉大家一下！

starlet2003

3楼的命令对于块什么有用吗?具体的图形远比例子复杂的多呀

ahopera

3楼的程序对图元少的还可以，对超过50M的大地形图操作起来就会有困难！而用WBlock到其它图形文件就很实用。