读取纯数字的高程

快乐小子春天

(defun c:LT001()
  (setq drawm0 (getvar "userr1"))
  (setq drawscl (/ drawm0 1000))
  (setq ffn (getfiled "写出文件" "" "dat" 1))
  (princ "\n请选择需要提取数据的数字:  ")
  (setq ss (ssget))
  (setq ff (open ffn "w"))
  (setq i 0)
  (setq n 1)
  (repeat (sslength ss)
    (setq ssn (ssname ss i))
    (setq ssdata (entget ssn))
    (setq txtg (cdr (assoc 40 ssdata)))
    (setq wx (* drawscl 1.5))
    (setq wy (* drawscl txtg 0.5))
    (setq sstyp (cdr (assoc 0 ssdata)))
    (if (or (= sstyp "TEXT") (= sstyp "MTEXT"))
      (progn
        (princ n ff)
        (princ ",," ff)
        (setq txtx1 (cadr (assoc 10 ssdata)))
        (setq txtx (- txtx1 wx))
        (princ txtx ff)
        (princ "," ff)
        (setq txty1 (caddr (assoc 10 ssdata)))
        (setq txty (+ txty1 wy))
        (princ txty ff)
        (princ "," ff)
        (setq txtz (cdr (assoc 1 ssdata)))
        (princ txtz ff)
        (princ "\n" ff)
      )
    )
    (setq n (1+ n))
    (setq i (1+ i))      
  )
  (close ff)
  (setq zds (1- n))
  (princ (strcat "\n文件保存位置==>: " ffn))
  (princ "\n本次总共提取了 ") (princ zds) (princ " 个高程点")
  (prin1)
)
(princ "\n====蓝图测绘，精心制作; 键入 LT001 运行本插件;查看使用说明请键入 HH ====")

蓝图测绘

这是我学习LISP写的第一个代码，你怎么发这里来了，我都不要意思，太简单了