测绘lisp注记面积

测绘面积(defun c:zmj() (setvar "cmdecho" 0) (setq zg(getvar "ltscale")) (setq zg1(* zg 3)) (command "layer" "m" "mj" "") (setq en(car (entsel))) (setq zmj1 0) (setq j 1) (while en (redraw en 3) (setq kk(command "area" "o" en)) (setq kk1(getvar "area" )) (setq kk2(rtos kk1 2 0)) (setq kk4(atoi kk2 ))