[LISP函数]：一个加高层的lisp

puzhixing123

;批量改高程        gcbak
(defun c:gcbak()
        (SETQ CZ (GETREAL"输入改正数:"))
        (setq ent (ssget"x" '((8 . "GCD"))))
        (setq long (sslength ent))
        (setq num 0)
        (repeat long
                (setq ty (ssname ent num))
                (setq data (entget ty))
                (setq typ (cdr (assoc 0 data)))
                (if (= "TEXT" TYP)
                ;(SETQ DATA (ENTGET (SETQ TY (CAR (ENTSEL)))))
(PROGN
        (SETQ TEX (CDR (ASSOC 1 DATA)))
        (SETQ TEX-NEW (+ CZ (ATOF TEX)))
        (SETQ TEX-NEW (CONS 1 (RTOS TEX-NEW 2 2)))
        (SETQ DA (SUBST TEX-NEW (ASSOC 1 DATA) DATA))
        (ENTMOD DA)
)
(PROGN
        (SETQ X (CADR (ASSOC 10 DATA))
                Y (CADDR (ASSOC 10 DATA)))
        (SETQ G (CADDDR (ASSOC 10 DATA)))
        (SETQ G-NEW (+  CZ G))
        (SETQ G-NEW (LIST 10 X Y G-NEW))
        (SETQ DA (SUBST G-NEW (ASSOC 10 DATA) DATA))
        (ENTMOD DA)       
)
                )
                (setq num (1+ num))
        )
)



;_________________________________________________________*-*6