[LISP程序]：抽稀多义线顶点的小程序

lsjjm

抽稀多义线顶点的小程序

1. 功能: 从起始点开始，每隔若干个顶点抽稀(删除)多义线顶点
2. 环境: 2000+ >2005

欢迎试用,提出意见.
(defun c:test (/ ll)
  (setq ents (entget (car (entsel "\nPick Pline: "))))
  (setq div (getint "\nRemove Every N Points:"))
  (setq lst (vl-member-if '(lambda (x)(= (car x) 10)) ents))
  (setq n (* (1- div) 4))
  (while (< n (length lst))
    (setq ll (cons (nth n lst) ll))
    (setq n (+ n (* div 4)))
  )  
  (setq ll (reverse (cdr ll)))
  (foreach item ll
    (setq ents (vl-remove item ents))
    (entmod ents)
  )
)

broload

发现一个BUG：
当执行这个操作后
运行一次UNDO后发现原来的线不见了
而这时REDO后也是执行这个操作后的状态

lsjjm

最初由 broload 发布
[B]发现一个BUG：当执行这个操作后运行一次UNDO后发现原来的线不见了...[/B]

在2005下运行, 没有发现你说的情况呀?

broload

我在2004中文版下试了几次都有这个问题
换了另外一台机器试，同样是2004中文版，也是一样的问题

JOSDENNIS

我認為這個程序用來對奐那些較為平綬的曲線沒有什麼誤差. 但是當處理曲線較特殊的(如有轉角處的地方) 的曲線. 這個程序就會使曲線轉角處變形很大. 不知有什麼更好的方法來解決呢?

chstart

vl-member-if
vl-remove item ents
这样的函数在r14里是不是都不能用啊？
为什么执行命令后都是cancle？

hrbpkf

我需要一个类似程序，不知楼主或斑竹可帮忙否？问题如下：
一个形似矩形（或多边形）的多义线，各边长中有若干顶点，如何删除除边长端点外的所有顶点？

lsjjm

最初由 hrbpkf 发布
[B]我需要一个类似程序，不知楼主或斑竹可帮忙否？问题如下：
一个形似矩形（或多边形）的多义线，各边长中有若干顶点，如何删除除边长端点外的所有顶点？ [/B]

“顶点”，“转折点“都糊涂了。
是否这样理解：如果一点在前两点所构成的直线上，就将该点删除？

snsj

“如果一点在前两点所构成的直线上，就将该点删除？”这是一点，另外可以给个误差角度当点近视在线上时候也可以删除，这个误差由用户控制,还有就是两个点的距离小于多少时候删除一点

hrbpkf

lsjjm  理解正确，我正是这个意思！~

JOSDENNIS

樓上兩位說了這麼多,不如把代嗎給俺瞧瞧. 呵呵.

lsjjm

最初由 JOSDENNIS 发布
[B]樓上兩位說了這麼多,不如把代嗎給俺瞧瞧. 呵呵. [/B]

看前面的贴子, 你也不是不会编程, 按照这个思路(或你更好的方法)
可以自己编那!

陌生人

对，启发思路是主要的，不要习惯了饭来张口。

JOSDENNIS

上面兩位尊者教訓的有理.
我目前自己沒寫有這個功能的代碼. 我也想了解大家是怎樣做的. 當然飯來張口的習慣是沒有的.

broload

楼主你好，这个程序不能一次抽稀多条线
请问有办法同时抽稀多条PLINE吗？
万分感激了：）