[求助]如何删除图形中重叠的线仅剩一条

宝宝

因为我要删除的线条是同一个图层的，你所说的方法其实和选中删除没有什么两样。由于要删除的线段太多，所以这样的方法是不行的

f5612140

1.用lisp程序,刪除長度小於1的line,arc,lwpolyline

2. (defun c:test()     (setvar "cmdecho" 0)
3.      (setq ss (ssget '((0 . "LINE,ARC,LWPOLYLINE"))))
4.      (setq i 0)
5.      (repeat (sslength ss)
6.            (setq ename (ssname ss i))
7.            (command "lengthen" ename "")
8.            (setq dt (getvar "perimeter"))
9.            (if (< dt 1)(command "erase" ename ""))
10.            (setq i (+ i 1))
11.      )
12. )      

(defun c:test()     (setvar "cmdecho" 0)      (setq ss (ssget '((0 . "LINE,ARC,LWPOLYLINE"))))      (setq i 0)      (repeat (sslength ss)            (setq ename (ssname ss i))            (command "lengthen" ename "")            (setq dt (getvar "perimeter"))            (if (< dt 1)(command "erase" ename ""))            (setq i (+ i 1))      ) )      

2.你的第二個問題查詢lisp編程技術,有帖可解決3.配合樓主圖面原line,arc-->line,arc,lwpolyline

宝宝

你们能说的清楚明白一些吗？怎么导入程序

f5612140

宝宝发表于2004-3-24 9:02:00你们能说的清楚明白一些吗？怎么导入程序

1.程序內容存檔為XXX.LSP(一般與指令同名TEST.LSP) 2.用APPLOAD或AP載入檔案,若檔案在支援檔搜尋路徑下也可用(load:"test") 3.輸入TEST執行程序

宝宝

我试过了，没有删除小于1的多线段。程序已经载入了。

宝宝

这个只能删除直线，不能删除多线段。

f5612140

宝宝发表于2004-3-24 16:02:00这个只能删除直线，不能删除多线段。

原程序內容有修改為"LINE,ARC,LWPOLYLINE",你有注意到嗎?

museum

好东东，又学一招，看来真的要开始学LISPB了，我是一点也不懂

wanggy169

是不是这个?

wanggy169

对不起,刚才发错了.


C:\Documents and Settings\as\My Documents\My Pictures\w1.bmp