[求助]LISP怎样获得pline的指定某个端点坐标

mycad

请高手赐教，谢谢！LISP怎样获得pline的多个端点坐标？

如本人绘制了pline；在控制台使用如下代码；

(setq ssww(ENTGET (SETQ S1 (ENTLAST))))

得到如下结果；怎样获得如第2个端点的坐标？

如果使用car cadr太复杂了吧；请高手赐教,谢谢！！！！

((-1 . <图元名: 400d3968>) (0 . "LWPOLYLINE") (330 . <图元名: 4008dcc0>) (5 . "D75") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "3") (6 . "Continuous") (100 . "AcDbPolyline") (90 . 7) (70 . 128) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10 1834.01 1158.21) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 1892.62 1196.25) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 1911.65 1170.38) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 1979.39 1172.67) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 1982.43 1203.86) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 2010.59 1209.95) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 2028.1 1195.49) (40 . 0.0) (41 . 0.0) (42 . 0.0) (210 0.0 0.0 1.0))

caoyin

(setq ssww(ENTGET (SETQ S1 (ENTLAST))))

(setq I 2) ;;I 决定返回第几个点
(repeat I
  (setq ssww (member (assoc 10 ssww) ssww)
        a    (car ssww)
        ssww (cdr ssww)
  )
)
(cdr a)

mycad

谢谢caoyin版主!

luowy

1，先转化为vla对象，

2，使用(vla-get-Coordinates Object index)取得坐标，Object为转换的对象，index为查询的端点（以0开头）