命令名：tqdxd
功能：实现多线段提取坐标,输出text文本，并标注点号
由于分享到百度网盘经常被屏蔽，这里直接将代码发上来，大家复制粘贴到记事本中，保存成*.lsp就可以了。
代码如下：
 (defun c:tqdxd()
   (setvar "cmdecho" 0)        
       (vl-load-com)
       (prompt "\n命令名：tqdxd。功能：实现多线段提取坐标,输出text文本，并标注点号.By author:mile") 
       (setq ss2 (Vlax-Get (Vlax-Ename->Vla-Object (car (entsel))) 'Coordinates ))  ;提取多线段坐标
       (setq nn (length ss2))  ;测试列表个数
               (setq i 1)
       (setq n (/ nn 2))
        (setq w 220)
       (setq pf  (zbtq ss2)) 保存第一点坐标 
           (setq ffn (getfiled "写出文件" "" "txt" 1));打开文text文件
            (setq ff (open ffn "w"))           
         (while ( < i (+ 1 n) )
           (setq p2  (zbtq ss2))
            (setq ss2  (cdr ss2))
           (setq ss2  (cdr ss2)) ;提取第一个坐标后，余下列表。
            (setq pname (itoa i ))
           (setq pn (strcat  "G" pname ))  ;;G为点号前缀
            (setq p3 (polar p2 (* PI 0.3) 5))
           (command "layer" "make" "点号" "c"  "20" "点号" "")
            (command "circle" p2 1)
            (command "text" "TL"  p3 3 0 pn) 
          ; 提取坐标
            (setq xa (car p2))
           (setq ya  (cadr p2))
            (setq y (rtos ya 2 3))
            (setq x (rtos xa 2 3))   
          ;写文件
           (princ pn ff)
            (princ "," ff)
            (princ x ff)
            (princ "," ff)
            (princ y ff)
            (princ "," ff) 
          (princ "0.000" ff)
            (princ "\n" ff)
            (setq i (+ i 1))
         )
         (close ff) 
   (setvar "cmdecho" 1)
           )     
(defun zbtq( a ) ; 提取列表坐标
    (setq  y  (car a))
    (setq  x  (cadr a))
    (list y x)
 )

使用方法：
1、将上面代码复制粘贴到记事本，另存为*.lsp。
2、在打开的图纸后输入AP，加载保存的LSP文件。
3、输入TQDXD命令，回车，单击多段线。
软件会提示将多段线的点坐标另存为一个TXT文本文件，同时会在图中给多段线的顶点编号。

相关文章：如何提取CAD图纸中图形的数据？
CAD使用问题可以访问：CAD实用技巧、CAD使用技巧、CAD疑难解答汇总