maomao8239

;将高程数值向右偏移(defunc:gcyy()(setvar"cmdecho"0)(setqzg1(getvar"ltscale"))(setqss(ssget))(setqn0)(repeat(sslengthss)(setqen(ssnamessn))(setqendata(entgeten)

测绘面积(defun c:zmj() (setvar "cmdecho" 0) (setq zg(getvar "ltscale")) (setq zg1(* zg 3)) (command "layer" "m" "mj" "") (setq en(car (entsel))) (setq zmj