yang686526

跪求！ 谢谢各位了
www.dimcax.com
跪求！ 谢谢各位了
请问各位大侠谁更给我提供一个可以提取一条线上各节点坐标的lisp程序代码？？？
先在这里说声谢谢了！
d
用群码找就可以了
看看帮助！
工资真的要涨了，心里更加爱党了，能给孩子奖赏了，见到老婆敢嚷了，敢尝海鲜鹅掌了，闲时能逛商场了，遇见美女心痒了，结果物价又涨了！
d
我是菜鸟 请问能说的再详细一些吗？
d
你是为了学习还是为了帮助工作
如果是学习的话，还是建议你多看看书，一本书一定要从头开始看
如果是需要这个程序的话，我帮你做一个
工资真的要涨了，心里更加爱党了，能给孩子奖赏了，见到老婆敢嚷了，敢尝海鲜鹅掌了，闲时能逛商场了，遇见美女心痒了，结果物价又涨了！
d
真的是非常感谢您 是这样的
现在我工作需要用这样一个程序，我也想学习，两者都有！ 如果可以您能先帮我写一段关键的代码吗？
d
(vl-load-com)
;;;==============================
(defun c:tt (/ ss)
(princ "\n删除pl线上相邻的重复点，假设只有直线片段")
(if (setq ss (ssget '((0 . "lwpolyline"))))
(progn (setq i 0)
(repeat (sslength ss)
(setq ent (entget (ssname ss i)))
;;得到顶点表
(setq lst_pt '())
(foreach n ent
(if (= (car n) 10)
(setq lst_pt (cons (cdr n) lst_pt))
)
)................
全文在：，天天向上搞设计。
://zml84.blog.sohu.com