[LISP程序]：导出高程点程序

gtfyzhgxing

(print "------程序用于从图形中导出高程值-------")
(print "------ 1代表ZDH图层,2代表GCD图层-------")
(print "------键入[DGC]启动程序,谢谢使用-------")
(defun c:fzhu_dgc()
        (print)
        (setq cxz(getint"请选择图层[展点号(ZDH)]<1>/[高程点(GCD)]<2>:"))
        (print)
        (while (and(/= cxz 1)(/= cxz 2))
                (setq cxz(getint"请选择图层[展点号(ZDH)]<1>/[高程点(GCD)]<2>:"))
                (print)
        )
        (setq fpath(getstring"请输入数据存储路径及文件名:<格式如:c:\\chpf1.xyh>"))
        (print)
        (while (= fpath "")
                (setq fpath(getstring"请输入数据存储路径及文件名:<格式如:c:\\chpf1.xyh>"))
                (print)
        )
        (setq fp1(open fpath "a"))
        (if (= cxz 1)
                (setq gc(ssget "X" '((0 . "POINT") (8 . "ZDH"))))
        )
        (if (= cxz 2)
                (setq gc(ssget "X" '((0 . "POINT") (8 . "GCD"))))
        )
        (setq gclen(sslength gc))
        (write-line (itoa (- gclen 1)) fp1)
        (setq blc(getvar "userr1"))
        (setq xyd(getvar "userr2"))
        (setq yyd(getvar "userr3"))
        (setq blxs(/ 1000 blc))
        (setq n 0)
        (repeat gclen
                (setq gcname(ssname gc n))
                (setq gcdata(entget gcname))
                       (setq gcxyh (cdr (assoc 10 gcdata)))
                (setq nn(+ n 1))
                (setq x (car gcxyh))
                (setq y (cadr gcxyh))
                (setq h (caddr gcxyh))
                ;(if (and(/= h 0)(> h 0))
                ;        (progn
                        (setq xx(+ (/ (- x 100) blxs) yyd))
                        (setq yy(+ (/ (- y 100) blxs) xyd))
                        (write-line (itoa nn) fp1)
                        (write-line "" fp1)
                        (write-line (rtos xx 2 3) fp1)
                        (write-line (rtos yy 2 3) fp1)
                        (write-line (rtos h 2 3) fp1)
                ;        )
                ;)
                (setq n(+ n 1))
        )
        (close fp1)
        (alert "数据导出成功!")
        (print)
)