簡用鋼筋翻樣軟件簡圖VBA參考

簡用鋼筋翻樣軟件簡圖VBA參考專用方法名稱說明示例Label表示簡圖上的一一個(gè)標(biāo)簽LabelA表示標(biāo)簽A如果LabellA寫的是200*110LabelA返回20000OpenVall處理用*號(hào)表示示的格式字符符如果LabellA寫的是200*110OpenVall(LabeelA).AA返回200OpenVall(LabeelA).BB返回10GjinBiaao處理用如C8@@200的格式字符符如果LabellA寫的是C8@2000GjinBiaao(LabbelA)..A返回CGjinBiaao(LabbelA)..B返回8GjinBiaao(LabbelA)..C返回200GjinBiaao(LabbelA)..D返回C8SetVal更改標(biāo)簽的內(nèi)容容(不能放置在在過程或函數(shù)數(shù)中)如果LabellA寫的是200SetVal((LabellA,10000)將會(huì)使LabeelA的內(nèi)容更改改為10000SetRow指示向料表上插插入一行(不能放置在在過程或函數(shù)數(shù)中)SetRow((樓梯/Im1,,AT1,GGjinBiiao(LaabelI)).D,GeetL_2,,底筋,,,,GetL__1)參數(shù)解釋:樓梯/Im1在簡圖列上上插入樓梯文文件夾中名為為Im1的簡圖AT1在構(gòu)構(gòu)件號(hào)列寫入入AT1GjinBiaao(LabbelI)..D在直徑列列列寫入標(biāo)簽LabellI上表示直徑徑的數(shù)據(jù)GetL_2在數(shù)量列上上寫入由函數(shù)數(shù)GetL__2計(jì)算的結(jié)果果單件數(shù)量量列不寫內(nèi)容容構(gòu)件數(shù)量量列不寫內(nèi)容容GetL_1簡圖上各段段的長度由函函數(shù)GetL__1計(jì)算(結(jié)果是一個(gè)個(gè)數(shù)組)常用VB函數(shù)名稱說明Atn返回一個(gè)數(shù)的反反正切值Cos返回指定一個(gè)角角的余弦值((弧度)Sin返回指定參數(shù)的的正弦值(弧度)Tan返回指定一個(gè)角角的正切值((弧度)Round返回指定的小數(shù)數(shù)位數(shù)進(jìn)行四四舍五入運(yùn)算算的結(jié)果Roound(33.14155)返回3Rouund(3..1415，1)返回3.1Array返回一個(gè)數(shù)組Arrayy(2,3))返回具有兩兩個(gè)元素的數(shù)數(shù)組更多可參考VBB語言資料示例程序申明公共變量，可將常用值放在這是，就不用反復(fù)計(jì)算它申明公共變量，可將常用值放在這是，就不用反復(fù)計(jì)算它Dimk,kkc,ksDimFL程序一開始將自動(dòng)運(yùn)行Main過程，可在這里給公共變量賦值(如果不用可以不寫)DimBH程序一開始將自動(dòng)運(yùn)行Main過程，可在這里給公共變量賦值(如果不用可以不寫)SubMaiink=LLabelKK/OppenVall(LabellC).Akc=Cos(Atn(k))用這個(gè)函數(shù)來計(jì)算下底筋的長度ks=Sin(Atn(k))用這個(gè)函數(shù)來計(jì)算下底筋的長度BH=LaabelJFL=BHH/ks-BBH/kEndSubbFunctioonGettL_1a=Roound(LabellA+LabeelB+FLL-50)b=Rounnd(LabellC/kc+BH/kks+LabbelK//ks))-80GetL_11=Arrray(a,b,2200)用這個(gè)函數(shù)來計(jì)算底筋的數(shù)量EndFunnctionn用這個(gè)函數(shù)來計(jì)算底筋的數(shù)量FunctioonGettL_2GetL_22=Roound((LabellH-50))/GjinnBiao((LabellG).C))+1用這個(gè)函數(shù)來計(jì)算上底筋的長度EndFunnctionn用這個(gè)函數(shù)來計(jì)算上底筋的長度FunctioonGettL_3a=LaabelD++LabellE-OpennVal(LabellC).A+Rouund(LabellJ/kk)-800GetL_33=Arrray(200,aa)用這個(gè)函數(shù)來計(jì)算下蓋筋的長度EndFunnctionn用這個(gè)函數(shù)來計(jì)算下蓋筋的長度FunctioonGettL_4a=LaabelA++LabellB+Roound(FL+LaabelJ/k)-80GetL_44=Arrray(100,aa,200))計(jì)算蓋筋的數(shù)量EndFunnctionn計(jì)算蓋筋的數(shù)量FunctioonGettL_5用這個(gè)函數(shù)來計(jì)算上蓋筋的長度GetL_55=Roound((LabellH-50))/GjinnBiao((LabellF).C))+1用這個(gè)函數(shù)來計(jì)算上蓋筋的長度EndFunnctionnFunctioonGettL_6a=RRound((LabellC/kc+BH/kks+LabbelK//ks))-80b=LabellD+LabeelE-OpennVal(LabellC).A-80GetL__6=AArray((200,aa,b,1000)EndFunnctionn計(jì)算分步筋的長度計(jì)算分步筋的長度FunctioonGettL_7b=LabellH-550GetL__7=AArray((b)計(jì)算分步筋的數(shù)量EndFunnctionn計(jì)算分步筋的數(shù)量FunctioonGettL_9S=(LaabelB+LabbelC//kc++LabeelD)//GjinnBiao((LabellI).C++1GetL_99=Rounnd(S*2+11)EndFunnctionnSetRow((樓梯/Im8,,BT1,GGjinBiiao(LabellG).D,,GetL__2,底筋,,,GetLL_1)SetRow((樓梯/Im9,,,GjiinBiaoo(LabellG).D,,GetL__2,底筋,,,GetLL_3)SetRow((樓梯/Im7,,,GjiinBiaoo(LabellF).D,,GetL__5,下蓋筋,,,GetLL_4)Se