求多义线上顺逆转的第N点

kry

求多义线上以PT点为起点顺时针和逆时针转的第N点,如图所示,例如求第2点,即点2和点4为所求

sailorcwx

2. (defun getPt(ent n / lstPoints)
3.   ;提取所有顶点坐标
4.   (mapcar '(lambda(x) (if (= (car x) 10) (setq lstPoints (append lstPoints (list (cdr x)))))) (entget ent))
5.   (if (and (> n 0)(< n (length lstPoints)))
6.    
7.     (list
8.       ;第n个顶点
9.       (nth (- n 1) lstPoints)
10.       
11.       ;倒数第n个
12.       (nth (- (length lstPoints) n) lstPoints)
13.       )
14.     (alert "超出多段线的顶点数!")
15.     )
16.   )

(defun getPt(ent n / lstPoints)   ;提取所有顶点坐标   (mapcar '(lambda(x) (if (= (car x) 10) (setq lstPoints (append lstPoints (list (cdr x)))))) (entget ent))   (if (and (> n 0)(< n (length lstPoints)))         (list       ;第n个顶点       (nth (- n 1) lstPoints)              ;倒数第n个       (nth (- (length lstPoints) n) lstPoints)       )     (alert "超出多段线的顶点数!")     )   )

kry

thank you