[求助]：加急贴－－PL线删点求助（关于地形方面）

xxxyzxx

前些天刚发过求助，今天再发一加急帖，请版主们谅解！

在论坛转了几圈，某兄弟发过一个SPLINE转PLINE的3.0版的程序，但未注有功能说明，加载后不会使用（试了N个组合都不好使）；“折断线、波浪线、波折线、云图线程序1124”版加载后也不能正常使用。

问题：
手头有N张地形图（每张1000多条pline，点数较少的PLINE有上千个点）需生成三维图，arcview，3dmax这次都无法正常生成，我怀疑可能是PL线点数过多，运算过于复杂，机器（P43.0c、AMD64 3000+）都不能正常完成任务

需：
自动删PLINE线点的工具，功能方面最好能类似于SPLINE转PLINE的3.0版，能在转弯急缓处自动调整删除点数。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
注：所有PLINE都已经赋了高程，但同一高程都是由N条PLINE点对点所连接（CAD已经不能生成BO线）
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

broload

lsjjm 长老编过一个程序，可以实现删点，但不能批量删，有点麻烦
http://www.xdcad.net/forum/showt ... y=&pagenumber=1

xxxyzxx

谢谢，我已经拿到“lsjjm 长老”编的程序，仍有几个问题需兄弟们帮助解决
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)
)
)
改动后的程序：
(defun c:test (/ ll l1)
(setq l1 (ssget))
(if (/= l1 nil) (progn
(setq ents (entget (ssname l1 0)))
(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)
)
)
))
(princ)
)
由于本人不懂LSP语言，以上改动仅为参考“zxq0220帮助改过的关于层的某个操作”，照葫芦画瓢；
目的：能框选、批量对N条线进行操作，先选线后选线均可操作
虽然改后可以先选物体后执行命令了，但最大的问题是，选中很多物体执行命令时，只对最后选中的物体操作，其它的物体不进行操作，请帮忙改一下！
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
其它的一些想法：
1.想作到批量删2点间的很多点
能否将每隔N个顶点抽稀多义线1个顶点改为每隔N个抽希M个？（原程序最大抽取的点数不够多，我想如果改动后能多抽几个就能省很多步的操作）
2.想作到能根据线的复杂程序自动调整点数－－－即，能在批量对N条线删点的同时，根据线的长短和复杂程度，每条线不同段删不同多的点
想参考“某兄弟编的spline转pline线3.0版中，经优化代码后可根据曲线弯曲程度进行转换（无源代码），现在找不到链接了，555”以上程序（苦于不会编程，我想他的思路是否为根据切线－－－数学中好像是这么叫吧，记不清了），即N次（应该是2次吧？）导数变化快慢，自动调整的点数？

xyp1964

最初由 xxxyzxx 发布
[B]谢谢，我已经拿到“lsjjm 长老”编的程序，仍有几个问题需兄弟们帮助解决
lsjjm 长老程序：
;1. 功能: 从起始点开始，每隔若干个顶点抽稀(删除)多义线顶点
;2. 环境: 2000+ >2005
(defun c:test (/ ll)
(setq e... [/B]

可以试试转波折线（闭合）的程序，设置合适的波长值（多义线顶点的距离），再将波峰值设为 0 即可。
处理1000条多义线也许1分钟就能搞定！
http://www.xdcad.net/forum/showthread.php?s=&postid=1379742

xxxyzxx

程序不能正常运行，请楼上的兄弟去以下地址看我的留言，谢谢1
http://www.xdcad.net/forum/showthre...&postid=1379742

hrbpkf

不知楼主要删除什么样的点，是不是想将共线的顶点除中间的外（只保留端点）都删除，如果是这样的话那就没有什么规律可言了，这个问题我也曾提出过，但始终没有得到解决。
最近在天正的PLINE编辑中发现，并集或差集后，共线的顶点除端点外全被删除了，如果多义线不多的话，这样删除顶点倒是能满足要求。

vv00

同样的问题