[求助]：无数点连线并标准命令

csubake

想写一个命令，自动将多点数据文件连接成多义线，并标注点号
目前已经实现多点连接，但缺少标注功能实现，请求各位大侠帮助：
以下是多点连接的LISP:
;;;
(defun c:CX()
  
;;;  选择要画的数据文件
      (setq fn (getfiled "选择数据文件" "//" "" 4))
      (setq f (open fn "r"))
    ;;
      (setq n 0)
        (command "Pline")
      
      (while (setq se (read-line f))
     ;; 数据实数付值
      (setq se (strcat se "\n"))
      (setq len (strlen se))
      (setq L '() k 1 s_str "" p nil)
      (while(<= k len)
        (setq one (substr se k 1))
        (if(or (= one":") (= one",") (= one " ") (= one (chr 9)) (= one "\n") (= one "Space") (= one "Tab"))
   (if p
     (progn
       (if(= (type (read s_str)) 'SYM)
          (setq L (cons s_str L))
          (setq L (cons (read s_str) L))
     )
     (setq s_str "" p nil)
   ))
   (setq s_str (strcat s_str one) p T)
   )
   (setq k(+ 1 k))
       )
      (setq L (reverse L))
      ;;在此修改文件输入顺序格式
      (setq z 0.0)
      (setq x (nth 0 L))
             (setq y (nth 1 L))
      (if (> (length L) 2)
        (setq z (nth 2 L)))
             (setq pt (list x y z))
      (command pt)
      (print n)
      (setq n (+ 1 n))
       )
      (command "")
  )

数据文件格式：
X坐标  Y坐标
0        0
200        974
500                300

想增加一项功能：在每个点位标注点号
想实现的数据文件格式
点号    X坐标  Y坐标
1        0           100
  2             200           974
  3             500           300
想实现的最后效果图见附件

zxq0220

[php]
(defun c:CX()
;;; 选择要画的数据文件
(setq fn (getfiled "选择数据文件" "//" "" 4))
(setq f (open fn "r"))
(setq ptlst (list))
(command "Pline")
(while (setq se (read-line f));; 数据实数付值
(setq pt (read (strcat "(" se ")")))
(setq ptlst (append ptlst (list pt)))
(command pt)
)
(command "")
(close f)
(setq n 0)
(repeat (length ptlst)
(setq pt (nth n ptlst))
(setq n (1+ n))
(command ".text" pt "" "" (itoa n))
)
(princ)
)
;这是数据首位有点号的程序
(defun c:CX ()
(setq fn (getviled "选择数据文件" "//" "" 4))
(setq f (open fn "r"))
(setq ptlst (list))
(while (setq se (read-line f))
  (setq pt (read (strcat "(" se ")")))
  (setq ptlst (append ptlst (list pt)))
  (command (cdr pt))
)
(command "")
(close f)
(setq n 0)
(repeat (length ptlst)
  (setq pt (nth n ptlst))
  (setq n (1+ n))
  (command ".text" (cdr pt) "" "" (itoa (car pt)))
)
(princ)
)
[/php]

csubake

感谢大侠帮助，但小弟运行了带有点号的LISP程序后，仍然无法实现效果，不知道是什么原因，敢请大侠再次帮助，另外我想实现点号是任意文本都可以
如：
点号    X坐标    Y坐标
1              200               500
a              300               600
......