求助，如何提取多线段的顶点坐标及点号？

skyahaii

提取坐标在本网站找到了，点号有点困难，刚学，工作中急需，谢谢大虾们。
(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" (itoa  geshu) "," "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" (itoa  huidian) "," "1" ",") yzbiao "," xzbiao) file);;;回点，返回这条多段线的第一个提取的顶点！
    (setq i (1+ i))
  );;整个循环结束
  (close file);;;;关闭文件，内容才能被正式写入！
)

skyahaii

思路是，提取多线段的顶点坐标，离各顶点最近的文本为该点点名，输出格式为点名，，y，x

skyahaii

怎么没有人响应呢

小小小学生

顶一个

LIULISHENG

学习了顶一下

趣意人生

学习了顶一下

730527

顶一下，顶一下