求助，如何提取多线段的顶点坐标及点号？
提取坐标在本网站找到了，点号有点困难，刚学，工作中急需，谢谢大虾们。(defun c:tt( / ? biao ent file geshu huidian i j mc name path ss tiaoshu xx xzbiao yy yzbiao)
(setq path (getfiled "保存" "" "txt" 1));;;;;;;;;;;;;;;;;;获取路径
(setq file (open path "w"));----------------------打开文件，没有则新建！
(setq ss (ssget '((0 . "LWPOLYLINE"))))?;;;;;;;;;;选择多段线
(setq i 0) ;;;;;;;初始化变量
(setq geshu 0) ;;;为计算界址点名称
(setq tiaoshu 0) ;;;;计算外围多少多少
(repeat (sslength ss);;;;;循环开始，这里是对选择集作循环。
(setq huidian (1+ geshu));计算回点的点号
(setq tiaoshu (1+ tiaoshu))
;;;;计算外围多少多少
(setq name (ssname ss i));得到选择集中图元名称
(setq ent (entget name));得到图元组码表
(setq j 0) ;;;;;;;初始化变量，准备对组码表进行循环，提取组码为10的坐标
(repeat (length ent);循环开始
(setq biao (car (nth j ent)));;;;提取组码
(if (= biao 10) ;;; 进行判断，如果组码为10就执行以下代码
(progn
(setq yy (cadr (nth j ent))) ;;;;;;提取X坐标
(setq xx (caddr (nth j ent)));;;;提取Y坐标
(setq geshu (1+ geshu))
(setq mc (strcat "J" (itoageshu) "," "1" ","));;;;;计算界址点名称
(write-line (strcat mc (rtos yy 2 3) "," (rtos xx 2 3) "," "9999" )file);;;;;写入文本中
(princ)
)
)
(setq j (1+ j))
);;;;内循环结束
(setq xzbiao (rtos (cadr (assoc 10 ent))))
(setq yzbiao (rtos (caddr (assoc 10 ent))))
(write-line (strcat (strcat "J" (itoahuidian) "," "1" ",") yzbiao "," xzbiao) file);;;回点，返回这条多段线的第一个提取的顶点！
(setq i (1+ i))
);;整个循环结束
(close file);;;;关闭文件，内容才能被正式写入！
)
思路是，提取多线段的顶点坐标，离各顶点最近的文本为该点点名，输出格式为点名，，y，x 怎么没有人响应呢 顶一个 学习了顶一下 学习了顶一下 顶一下，顶一下
页:
[1]