求个小程序

lzg8877

      求个铝材挤压比的程序，请大师留步帮个忙，具体在附件里！先谢！先谢！

秋雨

什么挤压比，看看

仲文玉

路过，随手写的lsp，保存为*.lsp文件加载到CAD试试看

2. (defun c:tt(/ bjing en mj mzhong zc zjing zl)(vl-load-com)
   
3.   (setq  zjing(getint "-->输入铝棒直径:")bjing(* zjing 0.5) mzhong(rtos(* pi bjing bjing 0.0027)2 3))
   
4.   (setq en(Vlax-Ename->Vla-Object(car(entsel "-->点选封闭图形："))))
   
5.   (setq mj(vlax-get en 'area) zc(rtos(vlax-get en 'length)2 3))
   
6.   (setq zl(rtos(* mj 0.0027)2 3))
   
7.   (princ"\n所选型材参数信息如下：")
   
8.   (princ(strcat "\n型材周长：" zc "mm"))
   
9.   (princ(strcat "\n截面积："  (rtos mj 2 3) "mm2"))
   
10.   (princ(strcat "\n型材米重：" zl "kg/m"))
    
11.   (princ(strcat "\n铝棒米重"(rtos bjing 2 2)"*"(rtos bjing 2 2)"*"(rtos pi 2 2)"*0.0027=" mzhong "kg/m"))
    
12.   (princ(strcat "\n挤压比为=" mzhong "/" zl "="(rtos(/(atof mzhong)(atof zl))2 2)))
    
13.   (princ)
    
14. )

(defun c:tt(/ bjing en mj mzhong zc zjing zl)(vl-load-com)<br />   (setq  zjing(getint "-->输入铝棒直径:")bjing(* zjing 0.5) mzhong(rtos(* pi bjing bjing 0.0027)2 3))<br />   (setq en(Vlax-Ename->Vla-Object(car(entsel "-->点选封闭图形："))))<br />   (setq mj(vlax-get en 'area) zc(rtos(vlax-get en 'length)2 3))<br />   (setq zl(rtos(* mj 0.0027)2 3))<br />   (princ"\n所选型材参数信息如下：")<br />   (princ(strcat "\n型材周长：" zc "mm"))<br />   (princ(strcat "\n截面积："  (rtos mj 2 3) "mm2"))<br />   (princ(strcat "\n型材米重：" zl "kg/m"))<br />   (princ(strcat "\n铝棒米重"(rtos bjing 2 2)"*"(rtos bjing 2 2)"*"(rtos pi 2 2)"*0.0027=" mzhong "kg/m"))<br />   (princ(strcat "\n挤压比为=" mzhong "/" zl "="(rtos(/(atof mzhong)(atof zl))2 2)))<br />   (princ)<br /> )