文件名称：测绘高程左右移位lisp语言应用
文件大小：1KB
文件格式：LSP
更新时间：2015-12-30 13:51:57
测绘高程lisp
;将高程数值向右偏移 (defun c:gcyy() (setvar "cmdecho" 0) (setq zg1 (getvar "ltscale")) (setq ss(ssget)) (setq n 0) (repeat (sslength ss) (setq en (ssname ss n)) (setq endata(entget en)) (setq entext(cdr (assoc 0 endata))) (setq entc(cdr (assoc 8 endata))) (if (and (= entext "TEXT") (= entc "GCD")) (progn (setq oldpt(assoc 11 endata)) (setq pt(cdr oldpt))