6259| 32
|
有木有能计算重量的LISP.材质与密度需可修改。有木有啊! |
1明经币
最佳答案(defun c:tts (/ midu changdu wks nbsh ssn scha tg pt)
(setvar "cmdecho" 0)
(setq midu (getreal "输入材料密度(kg/m^3):"))
(setq changdu (getreal "输入计算长度或厚度(mm):"))
;下部分为求面积部分
(if (null (setq scha (getreal "输入计算面积(mm^2):")))
(progn
(prompt "选择外框面域或多段线:")
(command "area"
"e"
(ssget '((0 . "REGION,LWPOLYLIN ...
| ||
发表于 2012-8-9 16:30
|
显示全部楼层
点评
2004版的输入参数怎么是反的呢?
评分 | ||
发表于 2012-8-9 17:14
|
显示全部楼层
点评
选择图元,输入或选择长宽。得出重量。
主要用于零件重量的计算,材质45#,SKD11,SKH9,WC.等
| ||
发表于 2012-8-9 17:48
|
显示全部楼层
点评
型材截面也能做出来,牛。
差不多就这些功能
| ||
发表于 2012-8-9 18:26
|
显示全部楼层
| |
发表于 2012-8-9 22:33
|
显示全部楼层
点评
不错,算出来还不太详细。我要计算价格用的。
| ||
发表于 2012-8-10 13:08
|
显示全部楼层
点评
这是个工具吧,好用吗?
| |
点评
好歹传一张dwg上来!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
| |
| |