大家帮忙

dwx0901 发表于 2007-6-14 21:40:00

本帖最后由作者于 2007-6-14 22:02:04 编辑 我把下面的程序做成了vlx可是加载后系统说无“jisuanqiangdu"的定义~或者穿先“无效命令"jisuanqiangdu"”是什么原因啊~(defun jisuanqiangdu()   (setq id (load_dialog "D:\\DWX\\qiangdujisuan.DCL"))   (if (< id 0)(exit))   (if (not(new_dialog "jisuanqingdu" id))(exit))   ;7个互锁   (action_tile "n1" "(setq nn 0.45)")   (action_tile "n2" "(setq nn 0.69)")   (action_tile "n1" "(setq nn 0.58)")   (action_tile "s1" "(setq ss 0 )")   (action_tile "s2" "(setq ss 0)")   (action_tile "s3" "(setq ss 0)")   (action_tile "s4" "(setq ss  (expt 355 6) sb (expt 600 10))");单位Pa  ;窗口上显示的所有已知和要输入的数据   (setq f1(open "D:\\DWX\\data.txt" "r"))   (setq data1(read(read-line f)))   (setq data2(read(read-line f)))   (setq P data1)   (set_tile "P" (RTOS P 2 2));将额定功率显示在窗口   (setq Pmax(* p 1.1))   (setq L(* (atof(get_tile "L") 100)));提取输入的周长，单位改为CM   (setq N data2)   (set_tile "N" (rtos N 2 2));将额定转速显示在窗口   (setq Nmax (* N 1.1))   (setq Ne(atof(get_tile "Ne")));将输入的额定转速提取   (setq K0(expt (/ 44 (+ 44 (* (/ 2 3) (- (* 9.81 sb) 44)))) (/ 1.0 3.0)));材料修正系数   (setq Dm(* 878 K0 (sqrt (* nn (/ (* 1.36 p) Ne)))));单位cm   (set_tile "Dm" (rtos (/ Dm 10) 2 2));显示时为MM   (set_tile "Vs" (rtos (* 1.1 11) 2 2));最大航速   (setq Qp 3300)   (start_dialog)  ;强度校核需要的值   ;定义四段轴初始长度   (setq lmin (* 24.9 (expt Dm (/ 3 2))));l也为CM   (setq lmax (* 142 (sqrt Dm)))   (setq lc (/ (- L l0 lmax) 3))   (setq l0 90);由密封元件决定，90cm   (if (< lc lmin);轴承间距单位改为M     (progn           (setq lc lim)           (setq l1 lc)(setq l2 lc)(setq l3 lc)(setq l4 (- L l0 l1 l2 l3))     )     (progn           (setq l1 lc)(setq l2 lc)(setq l3 lc)(setq l4 lmax)     )   )   ;各段截面惯性距   (setq Ibc (/ (* pi  Dm Dm Dm Dm) 64))   (setq Icd (/ (* pi  Dm Dm Dm Dm) 64))   (setq Ide (/ (* pi  Dm Dm Dm Dm) 64))  ;先求一个值   (setq q0 (/ (* pi Dm Dm 785) 4));785是重度，785N/CM   (setq q (* q0 1.31))  ;相对刚度   (setq Kbc (/ Ibc l2))   (setq Kcd (/ Icd l3))   (setq Kde (/ Ide l4))  ;分配系数   (setq Ub1 0)   (setq Ub2 1)   (setq Uc1 (/ Kbc (+ Kbc Kcd)))   (setq Uc2 (- 1 Uc1))   (setq Ud1 (/ Kcd (+ Kcd Kde)))   (setq Ud2 (- 1 Ud1))   (setq Ue 0)  ;各节点初始弯距   (setq M1 (- (* -1 Qp l1) (* 0.5 q (+ l1 l0))));B点左   (setq M2 (/ (* q l2 l2) 12));B点右   (setq M3 (* -1 M2));c点左   (setq M4 (/ (* q l3 l3) 12));C点右   (setq M5 (* -1 M4));D点右   (setq M6 (/ (* q l4 l4) 12));D点右   (setq M7 (* -1 M6));E点右  ;力矩分配   (setq delt1 (* -1 (- M1 M2)))   (setq delt2 (* -1 (- M3 M4)))   (setq delt3 (* -1 (- M5 M6)))   (setq delt (max delt1 delt2 delt3))   (while (< delt 1)     (setq M20 (* 0.5 delt2 Uc1))     (setq M30 (* 0.5 delt1 Ub2))     (setq M40 (* 0.5 delt3 Ud1))     (setq M50 (* 0.5 delt2 Uc2))     (setq M60 0)     (setq M70 (* 0.5 delt3 Ud2))     ;各力矩相加     (setq M1 (+ M1 0))     (setq M2 (+ M2 M20 (* delt1 Ub2)))     (setq M3 (+ M3 M30 (* delt2 Uc1)))     (setq M4 (+ M4 M40 (* delt2 Uc2)))     (setq M5 (+ M5 M50 (* delt3 Ud1)))     (setq M6 (+ M6 M60 (* delt3 Ud2)))     (setq M7 (+ M7 M70))     ;求下一循环时候的DELT     (setq delt1 (* -1 M20))     (setq delt2 (* -1 (- M30 M40)))     (setq delt3 (* -1 (- M50 M60)))     (setq delt (max delt1 delt2 delt3))    );while循环结束   (setq Mmax (max M1 M2 M3 M4 M5 M6 M7))   (setq Mmin (min M1 M2 M3 M4 M5 M6 M7))   (setq E (/ (- Mmax Mmin) Mmax))  ;定义力矩分配函数   (defun lijufenpei()   ;相对刚度   (setq Kbc (/ Ibc l2))   (setq Kcd (/ Icd l3))   (setq Kde (/ Ide l4))   ;分配系数   (setq Ub1 0)   (setq Ub2 1)   (setq Uc1 (/ Kbc (+ Kbc Kcd)))   (setq Uc2 (- 1 Uc1))   (setq Ud1 (/ Kcd (+ Kcd Kde)))   (setq Ud2 (- 1 Ud1))   (setq Ue 0)   ;各节点初始弯距       Mt表示临时弯距   (setq Qp 3300)    (setq Mt1 (- (* -1 Qp l1) (* 0.5 q (+ l1 l0))));B点左   (setq Mt2 (/ (* q l2 l2) 12));B点右   (setq Mt3 (* -1 Mt2));c点左   (setq Mt4 (/ (* q l3 l3) 12));C点右   (setq Mt5 (* -1 Mt4));D点右   (setq Mt6 (/ (* q l4 l4) 12));D点右   (setq Mt7 (* -1 Mt6));E点右   ;力矩分配   (setq delt1 (* -1 (- Mt1 Mt2)))   (setq delt2 (* -1 (- Mt3 Mt4)))   (setq delt3 (* -1 (- Mt5 Mt6)))   (setq delt (max delt1 delt2 delt3))   (while (< delt 1)     (setq M20 (* 0.5 delt2 Uc1))     (setq M30 (* 0.5 delt1 Ub2))     (setq M40 (* 0.5 delt3 Ud1))     (setq M50 (* 0.5 delt2 Uc2))     (setq M60 0)     (setq M70 (* 0.5 delt3 Ud2))     ;各力矩相加     (setq Mt1 (+ Mt1 0))     (setq Mt2 (+ Mt2 M20 (* delt1 Ub2)))     (setq Mt3 (+ Mt3 M30 (* delt2 Uc1)))     (setq Mt4 (+ Mt4 M40 (* delt2 Uc2)))     (setq Mt5 (+ Mt5 M50 (* delt3 Ud1)))     (setq Mt6 (+ Mt6 M60 (* delt3 Ud2)))     (setq Mt7 (+ Mt7 M70))     ;求下一循环时候的DELT     (setq delt1 (* -1 Mt20))     (setq delt2 (* -1 (- Mt30 Mt40)))     (setq delt3 (* -1 (- Mt50 Mt60)))     (setq delt (max delt1 delt2 delt3))    )   ;求最大最小力矩间的幅度   (setq Mmax (max Mt1 Mt2 Mt3 Mt4 Mt5 Mt6 Mt7))   (setq Mmin (min Mt1 Mt2 Mt3 Mt4 Mt5 Mt6 Mt7))   (setq Et (/ (- Mmax Mmin) Mmax))   )  (while (< (+ l1 l2 l3 l4 l0) L)   (while (< (+ l1 l2 l3 l4 l0) L)     (while (< (+ l1 l2 l3 l4 l0) L)       (lijufenpei)       (if (< Et E)  (setq lab l1 lbc l2l cd l3 lde l4);替换轴承间距        )       (setq l3 (+ 1 l3))     )    (lijufenpei)    (if (< Et E)      (setq lab l1 lbc l2l cd l3 lde l4)    )       (setq l2 (+ 1 l2))   )   (lijufenpei)   (if (< Et E)     (setq lab l1 lbc l2l cd l3 lde l4)     )   (setq l1 (+ 1 l1))   );完成力矩分配   ;求Mw   (setq Mw (/ (+ M1 M2 M3 M4 M5 M6 M7) 700));单位为N/cm  ;求各点支反力   (setq Fb (/ (+ (* Qp (+ lab lbc)) (* 0.5 q (+ lab lbc l0) (+ lab lbc l0)) M3 M2) lbc))   (setq Fc1 (/ (- (* 0.5 q lcd lcd) M3 M2 (* Q lab)) lbc))   (setq Fc2 (/ (+ (* 0.5 q lcd lcd) M4 M5) lcd))   (setq Fc (+ Fc1 Fc2))   (setq Fd1 (/ (- (*0.5 q lcd lcd) M4 M5) lcd))   (setq Fd2 (/ (+ (* 0.5 q lde lde) M6 M7) lde))   (setq Fd (+ Fd1 Fd2))   (setq Fe (/ (- (* 0.5 q lde lde) M6 M7) lde))   ;求现在的相对刚度   (setq Kbc (/ Ibc lbc))   (setq Kcd (/ Icd lcd))   (setq Kde (/ Ide lde));先求一次抬高点E   (setq Mde (/ (* -6 (expt 20.6 6) Kde 0.001) lde))   (setq Med (/ (* -6 (expt 20.6 6) Kde 0.001) lde))   (setq M1 0) (setq M2 0) (setq M3 0) (setq M4 0) (setq M5 0) (setq M6 Mde) (setq M7 Med)   (setq delt1 (* -1 (- M1 M2)))   (setq delt2 (* -1 (- M3 M4)))   (setq delt3 (* -1 (- M5 M6)))   (setq delt (max delt1 delt2 delt3))  (while (< deltt 1)   (setq M20 (* 0.5 deltt2 Uc1))   (setq M30 (* 0.5 deltt1 Ub2))   (setq M40 (* 0.5 deltt3 Ud1))   (setq M50 (* 0.5 deltt2 Uc2))   (setq M60 0)   (setq M70 (* 0.5 deltt3 Ud2))   ;各力矩相加   (setq M2 (+ M2 M20 (* delt1 Ub2)))   (setq M3 (+ M3 M30 (* delt2 Uc1)))   (setq M4 (+ M4 M40 (* delt2 Uc2)))   (setq M5 (+ M5 M50 (* delt3 Ud1)))   (setq M6 (+ M6 M60 (* delt3 Ud2)))   (setq M7 (+ M7 M70))   ;求下一循环时候的DELT   (setq delt1 (* -1 M20))   (setq delt2 (* -1 (- M30 M40)))   (setq delt3 (* -1 (- M50 M60)))   (setq delt (max delt1 delt2 delt3))   )  (setq F0b (/ (+  M3 M2) lbc))   (setq F0c1 (/ (-  0 M3 M2 ) lbc))   (setq F0c2 (/ (+  M4 M5) lcd))   (setq F0c (+ F0c1 F0c2))   (setq F0d1 (- 0 Mt4 Mt5))   (setq F0d2 (/ (+  M6 M7) lde))   (setq F0d (+ F0d1 F0d2))   (setq F0e (/ (- 0 M6 M7) lde))   (setq Fjb (+ Fb F0b))   (setq Fjc (+ Fc F0c))   (setq Fjd (+ Fd F0d))   (setq Fje (+ Fe F0e))   (setq Ez (/ (- (max Fjb Fjc Fjd Fje) (min Fjb Fjc Fjd Fje)) (max Fjb Fjc Fjd Fje)))   (setq tgb deltb)   (setq tgc deltc)   (setq tgd deltd)   (setq tge delte)  ;力矩分配   (defun lijufenpei2()   (setq delt1 (* -1 (- M1 M2)))   (setq delt2 (* -1 (- M3 M4)))   (setq delt3 (* -1 (- M5 M6)))   (setq delt (max delt1 delt2 delt3))   (while (< deltt 1)     (setq Mt20 (* 0.5 deltt2 Uc1))     (setq Mt30 (* 0.5 deltt1 Ub2))     (setq Mt40 (* 0.5 deltt3 Ud1))     (setq Mt50 (* 0.5 deltt2 Uc2))     (setq Mt60 0)     (setq Mt70 (* 0.5 deltt3 Ud2))     ;各力矩相加     (setq Mt2 (+ M2 Mt20 (* delt1 Ub2)))     (setq Mt3 (+ M3 Mt30 (* delt2 Uc1)))     (setq Mt4 (+ M4 Mt40 (* delt2 Uc2)))     (setq Mt5 (+ M5 Mt50 (* delt3 Ud1)))     (setq Mt6 (+ M6 Mt60 (* delt3 Ud2)))     (setq Mt7 (+ M7 Mt70))     ;求下一循环时候的DELT     (setq delt1 (* -1 Mt20))     (setq delt2 (* -1 (- Mt30 Mt40)))     (setq delt3 (* -1 (- Mt50 Mt60)))     (setq delt (max delt1 delt2 delt3))   )     (setq Ft0b (/ (+  Mt3 Mt2) lbc))   (setq Ft0c1 (/ (-  0 Mt3 Mt2 ) lbc))   (setq Ft0c2 (/ (+  Mt4 Mt5) lcd))   (setq Ft0c (+ F0c1 F0c2))   (setq Ft0d1 (- 0 Mt4 Mt5))   (setq Ft0d2 (/ (+  Mt6 Mt7) lde))   (setq Ft0d (+ F0d1 F0d2))   (setq Ft0e (/ (- 0 Mt6 Mt7) lde))   (setq Ftjb (+ Fb Ft0b))   (setq Ftjc (+ Fc Ft0c))   (setq Ftjd (+ Fd Ft0d))   (setq Ftje (+ Fe Ft0e))   (setq Etz (/ (- (max Ftjb Ftjc Ftjd Ftje) (min Ftjb Ftjc Ftjd Ftje)) (max Ftjb Ftjc Ftjd Ftje)))   )  ;抬高支撑时的弯距和支反力   (setq deltb -0.1 deltc -0.1 deltd -0.1 delte -0.1)   (while (< deltb 0.1)   (while (< deltc 0.1)     (while (< deltd 0.1)       (while (< delte 0.1)  (setq Mde (/ (* -1 (expt 20.6 6) Kde delte) lde))         (setq Med Mde)         (setq M1 0) (setq M2 0) (setq M3 0) (setq M4 0) (setq M5 0) (setq M6 Mde) (setq M7 Med)         (lijufenpei2)  (if (< Etz Ez)       (setq tgb delt tgc deltcb tgd deltd tge delte)     )  (setq delte (+ 0.001 delte))       )       (setq Mcd (/ (* -6 (expt 20.6 10) Kcd deltd) lcd))       (setq Mdc Mcd)       (setq Mde (/ (* 6 (expt 20.6 10) Kde deltd) lde))       (setq Med Mde)       (setq M1 0) (setq M2 0) (setq M3 0) (setq M4 Mcd) (setq M5 Mdc) (setq M6 Mde) (setq M7 Med)       (lijufenpei2)       (if (< Etz Ez)  (setq tgb deltb tgc deltc tgd deltd tge delte)       )       (setq deltd (+ 0.001 deltd))     )     (setq Mbc (/ (* -6 (expt 20.6 6) Kbc deltc) lbc))     (setq Mcb Mbc)     (setq Mcd (/ (* 6 (expt 20.6 6) Kcd deltc) lcd))     (setq Mdc Mcd)     (setq M1 0) (setq M2 Mbc) (setq M3 Mcb) (setq M4 Mcd) (setq M5 Mdc) (setq M6 0) (setq M7 0)     (lijufenpei2)     (if (< Etz Ez)       (setq tgb deltb tgc deltc tgd deltd tge delte)     )     (setq deltc (+ 0.001 deltc))   )   (setq Mbc (/ (* 6 (expt 20.6 6) Kbc deltb) lbc))   (setq Mcb Mbc)   (setq M1 bc) (setq M2 Mcb) (setq M3 0) (setq M4 0) (setq M5 Mdc) (setq M6 0) (setq M7 0)   (lijufenpei2)   (if (< Etz Ez)     (setq tgb deltb tgc deltc tgd deltd tge delte)   )   (setq deltb (+ 0.001 deltb))   )   ;力与力矩的计算完毕  ;主机扭矩引起的剪应力   (setq Ww (/ (* pi Dm Dm) 16))   (setq Mk (* 955525.39 (/ Pmax Nmax)))   (setq To (/ Mk Ww))  ;中间轴本身质量和呢国所产生的弯曲应力   (setq Wmw (/ (* PI Dm Dm Dm) 32))   (setq Sw (/ Mw Wmw))  ;由螺旋桨推力产生的压缩应力   (setq Tu (* 1945.2 (/ Pmax Vs) nn))   (setq Fw (* pi (* (/ Dm 2) (/ Dm 2))))   (setq Sy (/ T Fw))  ;由安装误差引起的弯曲应力   (setq Swz 2200)  ;合成应力   (setq S (+ Sy Sw Swz))   (setq Sh (* (sqrt (+ (* S S) (* 3 To To))) 10000));单位Pa  ;计算安全系数   (setq K (/ ss Sh))  (defun getdata();将安全系数值赋给K     (set_tile "K" (rtos K 2 2))     (set_tile "anquan" "安全")     (set_tile "taigaoB" (rtos (* tgb 1000) 2 2))     (set_tile "taigaoC" (rtos (* tgc 1000) 2 2))     (set_tile "taigaoD" (rtos (* tgd 1000) 2 2))     (set_tile "taigaoE" (rtos (* tge 1000) 2 2))     (set_tile "Lab" (rtos (/ lab 100) 2 2))     (set_tile "Lbc" (rtos (/ lbc 100) 2 2))     (set_tile "Lcd" (rtos (/ lcd 100) 2 2))     (set_tile "Lde" (rtos (/ lde 100) 2 2))   )  ;1个按扭及其对应的编辑框   (action_tile "K" "(getdata7)")  ;确定取消   (action_tile "accept" "(donedialog 1)")   (action_tile "cancel" "(donedialog -1)")  (setq std (start_dialog))  (unload_dialog id)  )

BDYCAD 发表于 2007-6-15 08:27:00

第一行的(defun jisuanqiangdu() 改成(defun c:jisuanqiangdu()就行啦, 很基础的事情.

页: [1]

明经CAD社区's Archiver

大家帮忙