【天端--工程在线】

标题: 一个计算CAD面积的插件 [打印本页]

作者: yang00ning 时间: 2008-7-21 21:07
标题: 一个计算CAD面积的插件
一个计算CAD面积的插件

254 Bytes, 下载次数: 164

作者: bjhld 时间: 2008-8-2 11:07
是一个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"))
)

作者: 张思标 时间: 2008-10-1 12:59
谢谢

欢迎光临【天端--工程在线】 (http://yczlsgs.com/bbs/)