文件名称：测绘lisp注记面积
文件大小：705B
文件格式：LSP
更新时间：2015-12-30 13:48:46
测绘面积
测绘面积(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 ))