【文件属性】:
文件名称:测绘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 ))