欢迎使用(yòng)GanQuanVBA
欢迎使用(yòng)GanQuanVBA,本程序是用VBA在AutoCAD2004中文版自带的VB编程环境(jìng)下(xià)开(kāi)发的,
在AutoCAD2002,2004下(xià)经过测试基(jī)本上(shàng)没有问题,以下的运行方法只在2004下成功测(cè)试过(guò),其(qí)他版本(běn)的运(yùn)行请(qǐng)自行研究。
1、使用方(fāng)法:将dvb文件所(suǒ)在的文件夹加(jiā)载(zǎi)为CAD的支(zhī)持文件(support file),在“选项(xiàng)”里加。命令行输(shū)入
op,选files/support files search path/add/browse,找(zhǎo)到dvb文件所在文件夹即可。
然(rán)后自定(dìng)义一个(gè)button按键(jiàn),将其button properties里的 macro associated with button 定义为(wéi)
^c^c_-vbarun JMTX.dvb!jiemiantexing.jiemian 即可。注意有下划线(xiàn)。(jiemian为宏的名(míng)称)
2、另一(yī)种使用方法:用ap(或Tools/Load Aplication)命令将(jiāng)JMTX.dvb和tx.lsp同时(shí)加载,然后键入tx即可。
可以用写(xiě)字板打(dǎ)开“tx.lsp”,里面的格式为(defun c:tx() (command "vbastmt" "jiemian"))
可以修改 c:tx() 中的tx为自己喜欢的命令。
这第2种方法每次(cì)打开(kāi)新的文件,如还(hái)要使用本程序则需重新加(jiā)载tx.lsp文件(jiàn)。
此次(cì)修正了以前一(yī)直存在的(de)致命问题就(jiù)是强轴的惯性(xìng)矩有时(shí)候(hòu)和弱轴(zhóu)的惯性矩会互相颠倒(dǎo),这个(gè)毛病改过(guò)来之(zhī)后大家尽管放心(xīn)的使用。本(běn)程序发布以来得(dé)到了(le)大家的(de)欢迎,很多(duō)人给我来信,有(yǒu)鼓励的(de)也有(yǒu)指出不足的,这(zhè)给我带来(lái)了很(hěn)大的动力。加上最近刚刚离开(kāi)三鑫公(gōng)司,心(xīn)情特别愉快,就将此程(chéng)序拿来好好(hǎo)研究改正(zhèng),作为(wéi)对各位(wèi)支持我的(de)兄(xiōng)弟姐妹的回报吧。其实这个小程序还可以发展出更有用的程序,比如在此基础(chǔ)上增加截面的应(yīng)力校核,输入轴力(lì)和弯矩就可以计算出最大的应(yīng)力等等,请大家继续关注(zhù),我日(rì)后再完善它。
有不少兄弟(dì)来信说如果(guǒ)里面的(de)各项符号(hào)如果能标明就好了,现就(jiù)在(zài)这里注明
Area:面积
Prm:周长(zhǎng)
Ix和Iy:两(liǎng)个方向的惯性矩(jǔ),x和y轴同CAD中默(mò)认(rèn)的XY轴。
Wx1和Wx2:截(jié)面绕(rào)x轴,中(zhōng)性轴两端的抵抗矩 ,CAD默认坐标(biāo)中,Wx1为(wéi)x轴(zhóu)上半部(bù)的抵抗矩(jǔ),Wx2为x轴(zhóu)下半部的抵(dǐ)抗矩
Wy1和Wy2:截面绕y轴,中性(xìng)轴两端的抵抗矩, CAD默认坐标中,Wy1为y轴左(zuǒ)半部的抵(dǐ)抗矩,Wy2为x轴(zhóu)右半(bàn)部的抵抗矩(jǔ)
在计(jì)算(suàn)应力的时候应(yīng)该从W1和W2中(zhōng)挑(tiāo)选一个(gè)最(zuì)小的来算(suàn)弯曲应力。
ix和iy是两个轴的回转半径,i=(I/A)^0.5
最后的Ip=Ix+Iy
