求采集pline上点坐标的程序

xueer

一条pline,上面可能有arc,我要采集它上各点的坐标（arc段如果能加密采集更好），该怎么实现呀？各位帮帮忙，感激不尽：）

zzl9105

兄弟，不要说加密采集，就是一个pl线，你把各顶点坐标能取出来不？基本的
把这个功能要求的lisp上传上来学习下呀，没有哪个单一函数能求的吧？
期待你的分享，谢谢

xiaxiang

用measure取点？

vormittag

一个函数，返回表内容是LWPOLYLINE的顶点及加密点，需要参数是LWPOLYLINE的图元名，及曲线上圆弧的加密段数。

2. (defun getptlist(ename n / dl dlpt dl1 pt1 ptdl dlpt1 ratio H R pm L pto ptm pt3 angle)
   
3.     (setq dl   (entget ename)
   
4.           dlpt (member (assoc 10 dl) dl)
   
5.           dl1  (car dlpt)
   
6.           pt1  (cdr dl1)
   
7.           ptdl (list pt1)
   
8.     );setq
   
9.     (while dlpt
   
10.            (setq dlpt1 (cdr dlpt))
    
11.                    (setq ratio (cdar (member (assoc 42 dlpt1) dlpt1)))
    
12.                    (if (not (zerop ratio))
    
13.                                       (progn
    
14.                                               (setq pm    (/ ratio (abs ratio))
    
15.                                                         ratio (abs ratio)
    
16.                                                                 pt2   (cdar (member (assoc 10 dlpt1) dlpt1))
    
17.                                                                 L     (distance pt1 pt2)
    
18.                                                                 H     (/ (* L (- 1.0 (* ratio ratio))) (* 4.0 ratio))
    
19.                                                                 R     (/ (* L (+ 1.0 (* ratio ratio))) (* 4.0 ratio))
    
20.                                 ptm   (polar pt1 (angle pt1 pt2) (/ L 2.0))
    
21.                                                                 pto   (polar ptm (+ (angle pt1 pt2) (* pm pi 0.5)) H)
    
22.                                                                 angle 0
    
23.                                                   );setq
    
24.                                                   (repeat (- n 1)
    
25.                                                           (setq  angle (+ angle (* (/ (atan ratio) n) pm 4.0))
    
26.                                                                          pt3 (polar pto (+ (angle pto pt1) angle) R)
    
27.                                                                                  ptdl (append ptdl (list pt3))
    
28.                                                                   );setq
    
29.                                                   );repeat
    
30.                                           );progn
    
31.                     );if
    
32.             (setq dlpt (member (assoc 10 dlpt1) dlpt1))
    
33.             (if dlpt
    
34.                 (progn
    
35.                     (setq dl1 (car dlpt))
    
36.                     (setq pt1 (cdr dl1))
    
37.                     (setq ptdl (append ptdl (list pt1)))
    
38.                 );progn
    
39.             );if
    
40.     );while
    
41.     ptdl
    
42. )

(defun getptlist(ename n / dl dlpt dl1 pt1 ptdl dlpt1 ratio H R pm L pto ptm pt3 angle) <br />     (setq dl   (entget ename) <br />           dlpt (member (assoc 10 dl) dl)<br />           dl1  (car dlpt)<br />           pt1  (cdr dl1)<br />           ptdl (list pt1)<br />     );setq<br />     (while dlpt<br />            (setq dlpt1 (cdr dlpt))<br />                    (setq ratio (cdar (member (assoc 42 dlpt1) dlpt1)))<br />                    (if (not (zerop ratio))<br />                                       (progn<br />                                               (setq pm    (/ ratio (abs ratio))<br />                                                         ratio (abs ratio)<br />                                                                 pt2   (cdar (member (assoc 10 dlpt1) dlpt1))<br />                                                                 L     (distance pt1 pt2)<br />                                                                 H     (/ (* L (- 1.0 (* ratio ratio))) (* 4.0 ratio))<br />                                                                 R     (/ (* L (+ 1.0 (* ratio ratio))) (* 4.0 ratio))<br />                                 ptm   (polar pt1 (angle pt1 pt2) (/ L 2.0))<br />                                                                 pto   (polar ptm (+ (angle pt1 pt2) (* pm pi 0.5)) H)<br />                                                                 angle 0<br />                                                   );setq<br />                                                   (repeat (- n 1)<br />                                                           (setq  angle (+ angle (* (/ (atan ratio) n) pm 4.0))<br />                                                                          pt3 (polar pto (+ (angle pto pt1) angle) R)<br />                                                                                  ptdl (append ptdl (list pt3))<br />                                                                   );setq<br />                                                   );repeat<br />                                           );progn<br />                     );if<br />             (setq dlpt (member (assoc 10 dlpt1) dlpt1))<br />             (if dlpt<br />                 (progn<br />                     (setq dl1 (car dlpt))<br />                     (setq pt1 (cdr dl1))<br />                     (setq ptdl (append ptdl (list pt1)))<br />                 );progn<br />             );if<br />     );while<br />     ptdl<br /> )

代码是很早以前写的，有点脏，有些算法很傻，例如凸度还判断正负了，写的时候没仔细推公式，。还有就是返回的都是世界坐标系的xy平面内的坐标，如果是lwpolyline所在平面不是世界坐标系的xy平面，得到的结果还要处理，这部分算法虽然不难，但是还没写进去。