[求助]怎样取得LWPOLYLINE的终点坐标

xcyspring

采用(setq ent1 (entget (car (entsel))))得到如下信息:

((-1 . <图元名: 7ef79688>) (0 . "LWPOLYLINE") (330 . <图元名 :
7ef77cf8>) (5 . "B99") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "HL")
(100 . "AcDbPolyline") (90 . 4) (70 . 0) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10
4062.78 -614.183) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 4063.28 -614.208) (40 .
0.0) (41 . 0.0) (42 . 0.0249906) (10 4065.28 -614.208) (40 . 0.0) (41 . 0.0)
(42 . 0.0) (10 4065.78 -614.183) (40 . 0.0) (41 . 0.0) (42 . 0.0) (210 0.0 0.0
1.0))

我采用(cdr (assoc 10 ent1)) 只能得到起始点的坐标(4062.78 -614.183) ，无法得到其他三个顶点的坐标。请问怎么把终点坐标取出？

我刚刚开始学习AUTOLISP, 很多东西都不会，希望能够得到高手的帮助.

先谢谢大家的帮助了！

ZZXXQQ

终点(未点)坐标可以这样取

(cdr (assoc 10 (reverse ent1)))

xcyspring

谢谢ZZXXQQ板主的帮助!

再问一个问题:怎样依次取得每个顶点的坐标?

highflybir

3. (defun getPP (ename / ptlist)
4.   (foreach n (entget ename)
5.     (if (= 10 (car n))
6.       (setq ptlist (cons (cdr n) ptlist))
7.     )
8.   )
9.   (reverse ptlist)
10. )
11. ;;下面为测试程序
12. (defun C:test (/ ss ename)
13.   (setq ss (entsel "\n请选取多段线(或样条曲线): "))
14.   (setq ename (car ss))
15.   (getPP ename)
16. )

(defun getPP (ename / ptlist)   (foreach n (entget ename)     (if (= 10 (car n))       (setq ptlist (cons (cdr n) ptlist))     )   )   (reverse ptlist) ) ;;下面为测试程序 (defun C:test (/ ss ename)   (setq ss (entsel "\n请选取多段线(或样条曲线): "))   (setq ename (car ss))   (getPP ename) )

BDYCAD

(setq Ename(car(entsel))
      SPT(vlax-curve-getstartpoint Ename);對象的起點
      EPT(vlax-curve-getendpoint Ename));對象的終點

Andyhon

回传的点位值有分2D&3D.

花锦绣

我常用的工具，你参考参考。