歡迎使用GanQuanVBA,本程序是用VBA在AutoCAD2004中文版自帶的VB編程環(huán)境下開發(fā)的,
在AutoCAD2002,2004下經(jīng)過測(cè)" />
歡迎使用GanQuanVBA
歡迎使用GanQuanVBA,本程序是用VBA在AutoCAD2004中文版自帶的VB編程環(huán)境下開發(fā)的,
在AutoCAD2002,2004下經(jīng)過測(cè)試基本上沒有問題,以下的運(yùn)行方法只在2004下成功測(cè)試過,其他版本的運(yùn)行請(qǐng)自行研究。
1、使用方法:將dvb文件所在的文件夾加載為CAD的支持文件(support file),在“選項(xiàng)”里加。命令行輸入
op,選files/support files search path/add/browse,找到dvb文件所在文件夾即可。
然后自定義一個(gè)button按鍵,將其button properties里的 macro associated with button 定義為
^c^c_-vbarun JMTX.dvb!jiemiantexing.jiemian 即可。注意有下劃線。(jiemian為宏的名稱)
2、另一種使用方法:用ap(或Tools/Load Aplication)命令將JMTX.dvb和tx.lsp同時(shí)加載,然后鍵入tx即可。
可以用寫字板打開“tx.lsp”,里面的格式為(defun c:tx() (command "vbastmt" "jiemian"))
可以修改 c:tx() 中的tx為自己喜歡的命令。
這第2種方法每次打開新的文件,如還要使用本程序則需重新加載tx.lsp文件。
此次修正了以前一直存在的致命問題就是強(qiáng)軸的慣性矩有時(shí)候和弱軸的慣性矩會(huì)互相顛倒,這個(gè)毛病改過來之后大家盡管放心的使用。本程序發(fā)布以來得到了大家的歡迎,很多人給我來信,有鼓勵(lì)的也有指出不足的,這給我?guī)砹撕艽蟮膭?dòng)力。加上最近剛剛離開三鑫公司,心情特別愉快,就將此程序拿來好好研究改正,作為對(duì)各位支持我的兄弟姐妹的回報(bào)吧。其實(shí)這個(gè)小程序還可以發(fā)展出更有用的程序,比如在此基礎(chǔ)上增加截面的應(yīng)力校核,輸入軸力和彎矩就可以計(jì)算出最大的應(yīng)力等等,請(qǐng)大家繼續(xù)關(guān)注,我日后再完善它。
有不少兄弟來信說如果里面的各項(xiàng)符號(hào)如果能標(biāo)明就好了,現(xiàn)就在這里注明
Area:面積
Prm:周長
Ix和Iy:兩個(gè)方向的慣性矩,x和y軸同CAD中默認(rèn)的XY軸。
Wx1和Wx2:截面繞x軸,中性軸兩端的抵抗矩 ,CAD默認(rèn)坐標(biāo)中,Wx1為x軸上半部的抵抗矩,Wx2為x軸下半部的抵抗矩
Wy1和Wy2:截面繞y軸,中性軸兩端的抵抗矩, CAD默認(rèn)坐標(biāo)中,Wy1為y軸左半部的抵抗矩,Wy2為x軸右半部的抵抗矩
在計(jì)算應(yīng)力的時(shí)候應(yīng)該從W1和W2中挑選一個(gè)最小的來算彎曲應(yīng)力。
ix和iy是兩個(gè)軸的回轉(zhuǎn)半徑,i=(I/A)^0.5
最后的Ip=Ix+I(xiàn)y