在CAD作图中，经常需要把文本文件的测点坐标展绘到CAD中，还经常需要把CAD中离散点坐标转化为文本文件或者EXCEL格式的文件。如果只是少数几个点，经过复制粘贴，倒腾几次也能从CAD中转化到文本文件；对于大量离散点，就一定要用转化软件来高效完成批量转化。
　　转化过程：
　　1.建立一个“zhhua.lsp”文件，文件内容如下：
　　2.用CAD打开需要需要转化的文件；
　　3.用appload加载“zhhua.lsp”
　　4.运行“zhhua”，框选择需要转化的离散点；
5.建立转化新文件；
过程图：
                           
http://s7/middle/663b7a48hc723e98c90f6&690
                                               图一 加载程序

http://s4/middle/663b7a48hc723e9a21ee3&690
                                    图二  框选需要提取坐标的点

http://s3/middle/663b7a48hc723e9a71cc2&690
                            图三  提取点的坐标

源程序：
(defun c:zhhua()
(princ "n框选所需输出的点:")
(setq ss (ssget ))
(setq n (sslength ss))
(setq ff (open (getfiled "文件保存为" "c:" "txt" 1) "w"))
(setq i 0)
(repeat n
  (setq spt (ssname ss i ))
  (setq ept (entget spt))
  (if (= (cdr (assoc 0 ept)) "POINT")
    (progn
      (setq lxyz (cdr (assoc 10 ept)))
      (setq sy (rtos (nth 0 lxyz)))

      (setq sx (rtos (nth 1 lxyz)))
      (setq sz1 (rtos (nth 2 lxyz)))
      (setq sxyz (strcat sx " " sy " " sz1))
      (write-line sxyz ff)
    )
  )
  (setq i (+ i 1))
);repeat
(princ "n转换完毕")
)