簡(jiǎn)用鋼筋翻樣軟件簡(jiǎn)圖VBA參考

1、簡(jiǎn)用鋼筋翻樣軟件簡(jiǎn)圖VBA參考專用方法名稱說(shuō)明示例Labell表示簡(jiǎn)圖上上的一個(gè)個(gè)標(biāo)簽LabellA 表示標(biāo)標(biāo)簽A如果LabbelAA寫的是2000*100LabellA 返回 20000OpenVVal處理用*號(hào)號(hào)表示的的格式字字符如果LabbelAA寫的是2000*100OpenVVal(LabbelAA).AA 返回 2000OpenVVal(LabbelAA).BB 返回 100GjinBBiaoo處理用如CC82200的格式式字符如果LabbelAA寫的是是C82000GjinBBiaoo(LaabellA).A 返回 CGjinBBiaoo(LaabellA).B 返回 8Gjin

2、BBiaoo(LaabellA).C 返回 2000GjinBBiaoo(LaabellA).D返回 C88SetVaal更改標(biāo)簽的的內(nèi)容(不能放放置在過(guò)過(guò)程或函函數(shù)中)如果LabbelAA寫的是2000SetVaal(LLabeelA,10000)將會(huì)使LaabellA的內(nèi)容容更改為為 10000SetRoow指示向料表表上插入入一行(不能放放置在過(guò)過(guò)程或函函數(shù)中)SetRoow(樓梯/Imm1,AAT1,GjiinBiiao(LabbelII).DD,GeetL_2,底筋, , ,GGetLL_1)參數(shù)解釋:樓梯/Imm1 在簡(jiǎn)圖圖列上插插入樓梯梯文件夾夾中名為為Im1的簡(jiǎn)圖圖AT1 在構(gòu)

3、件件號(hào)列寫寫入AT11GjinBBiaoo(LaabellI).D 在直徑徑列列寫寫入標(biāo)簽簽LabbelII上表示示直徑的的數(shù)據(jù)GetL_2 在數(shù)量量列上寫寫入由函函數(shù)GettL_22計(jì)算的的結(jié)果 單件件數(shù)量列列不寫內(nèi)內(nèi)容 構(gòu)件件數(shù)量列列不寫內(nèi)內(nèi)容GetL_1 簡(jiǎn)圖上上各段的的長(zhǎng)度由由函數(shù)GettL_11計(jì)算(結(jié)果是是一個(gè)數(shù)數(shù)組) 常用VB函函數(shù)名稱說(shuō)明Atn返回一個(gè)數(shù)數(shù)的反正正切值Cos返回指定一一個(gè)角的的余弦值值(弧度)Sin返回指定參參數(shù)的正正弦值(弧度)Tan返回指定一一個(gè)角的的正切值值(弧度)Roundd返回指定的的小數(shù)位位數(shù)進(jìn)行行四舍五五入運(yùn)算算的結(jié)果果Rouund(3.11415

4、5)返回3 Rouund(3.114155，1)返回3.11Arrayy返回一個(gè)數(shù)數(shù)組 Arrray(2,33) 返返回具有有兩個(gè)元元素的數(shù)數(shù)組更多可參考考VB語(yǔ)言資資料示例程序申明公共變量，可將常用值放在這是，就不用反復(fù)計(jì)算它申明公共變量，可將常用值放在這是，就不用反復(fù)計(jì)算它Dim kk,kcc,kssDim FFL程序一開始將自動(dòng)運(yùn)行Main過(guò)程，可在這里給公共變量賦值(如果不用可以不寫)Dim BBH程序一開始將自動(dòng)運(yùn)行Main過(guò)程，可在這里給公共變量賦值(如果不用可以不寫)Sub MMainn k = LaabellK / OppenVVal(LabbelCC).AA kc = CCo

5、s( Atnn(k) )用這個(gè)函數(shù)來(lái)計(jì)算下底筋的長(zhǎng)度 ks = SSin( Atnn(k) )用這個(gè)函數(shù)來(lái)計(jì)算下底筋的長(zhǎng)度 BH=LabbelJJ FL=BH/ks-BH/k End SSubFuncttionn GeetL_1 a = Rouund(LabbelAA+LaabellB+FFL-550) b=Rooundd( LabbelCC/kcc +BBH/kks+LLabeelK / kks )-800 GetLL_1 = AArraay(a,bb,2000)用這個(gè)函數(shù)來(lái)計(jì)算底筋的數(shù)量End FFuncctioon用這個(gè)函數(shù)來(lái)計(jì)算底筋的數(shù)量Functtionn GeetL_2 GetLL

6、_2 = RRounnd(LabbelHH-500)/GGjinnBiaao(LabbelGG).CC)+11用這個(gè)函數(shù)來(lái)計(jì)算上底筋的長(zhǎng)度End FFuncctioon用這個(gè)函數(shù)來(lái)計(jì)算上底筋的長(zhǎng)度Functtionn GeetL_3 a = LabbelDD+LaabellE-OppenVVal(LabbelCC).AA + Rouund(LabbelJJ / k) -800 GetLL_3 = AArraay(2000,a)用這個(gè)函數(shù)來(lái)計(jì)算下蓋筋的長(zhǎng)度End FFuncctioon用這個(gè)函數(shù)來(lái)計(jì)算下蓋筋的長(zhǎng)度Functtionn GeetL_4 a = LabbelAA+LaabellB +

7、 Rooundd(FL+ LaabellJ / k) -880 GetLL_4 = AArraay(1000,a,2000)計(jì)算蓋筋的數(shù)量End FFuncctioon計(jì)算蓋筋的數(shù)量Functtionn GeetL_5用這個(gè)函數(shù)來(lái)計(jì)算上蓋筋的長(zhǎng)度 GetLL_5 = RRounnd(LabbelHH-500)/GGjinnBiaao(LabbelFF).CC)+11用這個(gè)函數(shù)來(lái)計(jì)算上蓋筋的長(zhǎng)度End FFuncctioonFuncttionn GeetL_6 a = Rooundd( LabbelCC/kcc +BBH/kks+LLabeelK / kks )-800 b = LLabeelD

8、+LabbelEE-OppenVVal(LabbelCC).AA -80 GettL_66 = Arrray(2000,a,b,1100)End FFuncctioon計(jì)算分步筋的長(zhǎng)度計(jì)算分步筋的長(zhǎng)度Functtionn GeetL_7 b = LLabeelH - 550 GettL_77 = Arrray(b)計(jì)算分步筋的數(shù)量End FFuncctioon計(jì)算分步筋的數(shù)量Functtionn GeetL_9 S=( LabbelBB + LabbelCC / kc + LLabeelD )/ GjiinBiiao(LabbelII).CC+1 GetLL_9=Rouund(S*22+1)End FFuncctioonSetRoow(樓梯/Imm8,BBT1,GjiinBiiao(LabbelGG).DD,GeetL_2,底筋, , ,GettL_11)SetRoow(樓梯/Imm9, ,GjjinBBiaoo(LabbelGG).DD,GeetL_2,底筋, , ,GettL_33)SetRoow(樓梯/Imm7, ,GjjinBBiaoo(LabbelFF).DD,GeetL_5,下蓋筋, , ,GettL_44)