求助：如何取得3D POLYLINE 线的z坐标？

liulangzhe

求助：


如何取得3D POLYLINE 线的z坐标？

meflying

(last (assoc 10 (entget (entnext (car (entsel))))))

alin

ENTNEXT -> 得到VERTEX

liulangzhe

谢谢斑竹及alin兄： 不过还是不行啊，下面是我用entget 得到的内容及用list命令查询的结果： Command: li LIST
Select objects: 1 found
Select objects:
POLYLINE Layer: 81100
Space: Model space
Handle = B266
Open space VERTEX Layer: 81100
Space: Model space
Handle = B267
Space
at point, X=27500.000 Y=4312725.325 Z= 129.000 VERTEX Layer: 81100
Space: Model space
Handle = B268
Space
at point, X=27500.004 Y=4312725.322 Z= 129.000 VERTEX Layer: 81100
Space: Model space
Handle = B269
Space
at point, X=27500.777 Y=4312724.685 Z= 129.000
area 3822.495
length 179.901 Command: (setq c (entget (car (entsel))))
((-1 . <Entity name: 51f1090>) (0 . "POLYLINE") (5 . "BE32") (100 .
"AcDbEntity") (67 . 0) (8 . "81100") (100 . "AcDb3dPolyline") (66 . 1) (10 0.0
0.0 0.0) (70 . 8) (40 . 0.0) (41 . 0.0) (210 0.0 0.0 1.0) (71 . 0) (72 . 0) (73
. 0) (74 . 0) (75 . 0)) Z坐标还是的不到啊，再请斑竹帮帮忙啊，怎么得到Z坐标（129.000）啊！

liulangzhe

序列10项中找不到Z坐标，显示的都是0啊！

cqnj023

不仅仅用到entget，关键还要用entnext。

alin

(DEFUN Z-VALUE (/ Z EN)
(SETQ EN (car (entsel)))
(IF (ENTNEXT EN)
(WHILE (= (CDR (ASSOC 0 (ENTGET (SETQ EN (ENTNEXT EN))))) "VERTEX")
(SETQ Z (CONS (LAST (assoc 10 (entget EN))) Z))
)
(REVERSE Z))
)

liulangzhe

谢谢，问题解决了！