[转贴] 提取多义线各顶点坐标到文件中 by XDSoft

YueFeng

2. 
   
3. (defun c:pl2file (/ pl fn p1)
   
4.   (prompt "\n提取顶点坐标到指定的文件...")
   
5.   (if (setq pl (car (xdrx_entsel "\n选定一条PolyLine<退出>:" '((0 . "*polyline")))))
   
6.     (progn
   
7.       (xdrx_setenttodb)
   
8.       (if (setq fn (xdrx_savefiled "" "" "*.txt|*.txt||"))
   
9.     (progn
   
10.       (if (setq fn (open fn "w"))
    
11.         (progn
    
12.           (while (setq p1 (xdrx_getpolyvtx))
    
13.         (write-line (strcat (rtos (car p1) 2 2) " , " (rtos
    
14.                                   (cadr p1)
    
15.                                   2 2
    
16.                                 )
    
17.                 ) fn
    
18.         )
    
19.           )
    
20.           (close fn)
    
21.         )
    
22.       )
    
23.     )
    
24.       )
    
25.     )
    
26.   )
    
27.   (princ)
    
28. )
    

<br /> (defun c:pl2file (/ pl fn p1) <br />   (prompt "\n提取顶点坐标到指定的文件...") <br />   (if (setq pl (car (xdrx_entsel "\n选定一条PolyLine<退出>:" '((0 . "*polyline"))))) <br />     (progn <br />       (xdrx_setenttodb) <br />       (if (setq fn (xdrx_savefiled "" "" "*.txt|*.txt||")) <br />     (progn <br />       (if (setq fn (open fn "w")) <br />         (progn <br />           (while (setq p1 (xdrx_getpolyvtx)) <br />         (write-line (strcat (rtos (car p1) 2 2) " , " (rtos <br />                                   (cadr p1) <br />                                   2 2 <br />                                 ) <br />                 ) fn <br />         ) <br />           ) <br />           (close fn) <br />         ) <br />       ) <br />     ) <br />       ) <br />     ) <br />   ) <br />   (princ) <br /> )<br />