#网上的TQZB仅找到了多段线批量提取X,Y的，但没有找到还带标高的，仅有单点提取带的。
#求各位专家展示一个批量提取多段线坐标带标高的，谢谢啦！
(defun c:tqzb (/)
(setq cm (getvar "cmdecho"))
(setvar "cmdecho" 0)
(if (setq wjm (getfiled "请指定要保存的坐标文件" "e:\" "txt" 1))
(if (setq ssa (ssget '((0 . "LWPOLYLINE"))))
(progn
(setq fff (open wjm "w")
n (sslength ssa)
i 0
no 0
)
(repeat n
(setq dxf (entget (ssname ssa i))
i (1+ i)
ptb (mapcar 'cdr (vl-remove-if-not '(lambda(x)(= (car x) 10)) dxf))
ptb (mapcar '(lambda(x)(trans x 0 1)) ptb)
)
(foreach pt ptb
(setq no (1+ no))
(write-line (strcat (itoa no) ","
(rtos (car pt) 2 2) ","
(rtos (cadr pt) 2 2) ","
)
fff
)
)
)
(close fff)
(princ (strcat "\n坐标已存入"" wjm ""中"))
)
)
)
(setvar "cmdecho" cm)
(princ)
)
这个是直接能提出来XY的，但是还缺少对应的标高Z的提取，哪位专家可以帮助补一下。