一个计算CAD面积的插件

yang00ning

一个计算CAD面积的插件

bjhld

是一个scr文件
cal
0+0
(defun c:bl()
(setq bl(getreal"请输入比例1:"))
)
(defun c:mj()
(setq fbl (/ bl 1000))
(command"-boundary" pause "")
(setq ss "l")
(command"area" "o" ss)
(setq st(getvar "area"))
(command"erase" ss "")
(princ "mj=")
(setq stk(c:cal "st*fbl*fbl"))
)

张思标

谢谢