簡(jiǎn)用鋼筋翻樣軟件簡(jiǎn)圖VBA參考專用方法名稱說明示例Label表示簡(jiǎn)圖上的一個(gè)個(gè)標(biāo)簽LabelA表表示標(biāo)簽A如果LabelAA寫的是200*110LabelA返返回20000OpenVal處理用*號(hào)表示的的格式字符如果LabelAA寫的是200*110OpenVal((LabellA).A返回200OpenVal((LabellA).B返回10GjinBiaoo處理用如C8@2200的格式字符符如果LabelAA寫的是C8@@200GjinBiaoo(LabeelA).AA返回CGjinBiaoo(LabeelA).BB返回8GjinBiaoo(LabeelA).CC返回200GjinBiaoo(LabeelA).DD返回C8SetVal更改標(biāo)簽的內(nèi)容((不能放置在在過程或函數(shù)數(shù)中)如果LabelAA寫的是200SetVal(LLabelAA,10000)將會(huì)使LabellA的內(nèi)容更改改為10000SetRow指示向料表上插入入一行(不能放置在在過程或函數(shù)數(shù)中)SetRow(樓樓梯/Im1,,AT1,GGjinBiiao(LaabelI)).D,GeetL_2,,底筋,,,,GetL__1)參數(shù)解釋:樓梯/Im1在簡(jiǎn)簡(jiǎn)圖列上插入入樓梯文件夾夾中名為Im1的簡(jiǎn)圖AT1在構(gòu)件件號(hào)列寫入AT1GjinBiaoo(LabeelI).DD在直徑列列列寫入標(biāo)簽LabellI上表示直徑徑的數(shù)據(jù)GetL_2在在數(shù)量列上寫寫入由函數(shù)GetL__2計(jì)算的結(jié)果果單件數(shù)量列列不寫內(nèi)容構(gòu)件數(shù)量列列不寫內(nèi)容GetL_1簡(jiǎn)圖上各段段的長(zhǎng)度由函函數(shù)GetL__1計(jì)算(結(jié)果是一個(gè)個(gè)數(shù)組)常用VB函數(shù)名稱說明Atn返回一個(gè)數(shù)的反正正切值Cos返回指定一個(gè)角的的余弦值(弧度)Sin返回指定參數(shù)的正正弦值(弧度)Tan返回指定一個(gè)角的的正切值(弧度)Round返回指定的小數(shù)位位數(shù)進(jìn)行四舍舍五入運(yùn)算的的結(jié)果Rouund(3..1415))返回3Rouund(3..1415，1)返回3.1Array返回一個(gè)數(shù)組AArray((2,3)返回具有兩兩個(gè)元素的數(shù)數(shù)組更多可參考VB語言資料示例程序申明公共變量，可將常用值放在這是，就不用反復(fù)計(jì)算它申明公共變量，可將常用值放在這是，就不用反復(fù)計(jì)算它Dimk,kc,ksDimFL程序一開始將自動(dòng)運(yùn)行Main過程，可在這里給公共變量賦值(如果不用可以不寫)DimBH程序一開始將自動(dòng)運(yùn)行Main過程，可在這里給公共變量賦值(如果不用可以不寫)SubMaink=LabelK/OpenVal(LabelC).Akc=Cos(Atn(k))用這個(gè)函數(shù)來計(jì)算下底筋的長(zhǎng)度ks=Sin(Atn(k))用這個(gè)函數(shù)來計(jì)算下底筋的長(zhǎng)度BH=LabelJFL=BH/ks-BH/kEndSubFunctionGetL_1a=Round(LabelA+LabelB+FL-50)b=Round(LabelC/kc+BH/ks+LabelK/ks)-80GetL_1=Array(a,b,200)用這個(gè)函數(shù)來計(jì)算底筋的數(shù)量EndFunction用這個(gè)函數(shù)來計(jì)算底筋的數(shù)量FunctionGetL_2GetL_2=Round((LabelH-50)/GjinBiao(LabelG).C)+1用這個(gè)函數(shù)來計(jì)算上底筋的長(zhǎng)度EndFunction用這個(gè)函數(shù)來計(jì)算上底筋的長(zhǎng)度FunctionGetL_3a=LabelD+LabelE-OpenVal(LabelC).A+Round(LabelJ/k)-80GetL_3=Array(200,a)用這個(gè)函數(shù)來計(jì)算下蓋筋的長(zhǎng)度EndFunction用這個(gè)函數(shù)來計(jì)算下蓋筋的長(zhǎng)度FunctionGetL_4a=LabelA+LabelB+Round(FL+LabelJ/k)-80GetL_4=Array(100,a,200)計(jì)算蓋筋的數(shù)量EndFunction計(jì)算蓋筋的數(shù)量FunctionGetL_5用這個(gè)函數(shù)來計(jì)算上蓋筋的長(zhǎng)度GetL_5=Round((LabelH-50)/GjinBiao(LabelF).C)+1用這個(gè)函數(shù)來計(jì)算上蓋筋的長(zhǎng)度EndFunctionFunctionGetL_6a=Round(LabelC/kc+BH/ks+LabelK/ks)-80b=LabelD+LabelE-OpenVal(LabelC).A-80GetL_6=Array(200,a,b,100)EndFunction計(jì)算分步筋的長(zhǎng)度計(jì)算分步筋的長(zhǎng)度FunctionGetL_7b=LabelH-50GetL_7=Array(b)計(jì)算分步筋的數(shù)量EndFunction計(jì)算分步筋的數(shù)量FunctionGetL_9S=(LabelB+LabelC/kc+LabelD)/GjinBiao(LabelI).C+1GetL_9=Round(S*2+1)EndFunctionSetRow(樓梯/Im8,BT1,GjinBiao(LabelG).D,GetL_2,底筋,,,GetL_1)SetRow(樓梯/Im9,,GjinBiao(LabelG).D,GetL_2,底筋,,,GetL_3)SetRow(樓梯/Im7,,GjinBiao(LabelF).D,GetL_5,下蓋筋,,,G