[编程申请]：如何取得PL多线段各顶点的坐标

qiyu0588

如题：
谢谢

gysjy

2. 
   
3.   [FONT=courier new]
   
4. (defun plpoint(/ en n ei );;求得PLINE线的各个顶点；
   
5.     (setq en (entget sn)
   
6.             n 0 lst '()
   
7.     )
   
8.     (while (/= (setq ei (nth n en)) nil)
   
9.             (if        (= (car ei) 10)
   
10.                 (setq lst (cons (cdr ei) lst))
    
11.             )
    
12.             (setq n (1+ n))
    
13.     )
    
14.     (setq lst (reverse lst))
    
15.     (if (= (to 70) 1)(setq lst (cons (last lst) lst)))
    
16.     (princ)
    
17. )
    
18.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun plpoint(/ en n ei );;求得PLINE线的各个顶点；<br />     (setq en (entget sn)<br />             n 0 lst '() <br />     )<br />     (while (/= (setq ei (nth n en)) nil)<br />             (if        (= (car ei) 10)<br />                 (setq lst (cons (cdr ei) lst))<br />             )<br />             (setq n (1+ n))<br />     )<br />     (setq lst (reverse lst))<br />     (if (= (to 70) 1)(setq lst (cons (last lst) lst)))<br />     (princ)<br /> )<br />   [/FONT]<br />

yang121416

用这个，加载后命令是outh ，绝对管用的。

qiyu0588

谢谢了，好好学习下先

windowsk

用了,很不错的一个程序..非常好用..感谢3楼的大虾

xs910

还不能下载,要多多努力啊

llkill

还不能下载,要多多努力啊

amu226

不错可惜 下不了