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