测绘高程左右移位lisp语言应用

;将高程数值向右偏移(defunc:gcyy()(setvar"cmdecho"0)(setqzg1(getvar"ltscale"))(setqss(ssget))(setqn0)(repeat(sslengthss)(setqen(ssnamessn))(setqendata(entgeten))(setqentext(cdr(assoc0endata)))(setqentc(cdr(assoc8endata)))(if(and(=entext"TEXT"