Excel(ESteel)自定義函數(shù)源代碼

PublicFunctionDJ(鋼筋直徑AsSingle,最小搭接直徑AsSingle,搭接類別AsString,機(jī)械接頭AsString,錨固AsSingle)DimxAsInteger,X1AsInteger,X2AsInteger,aAsIntegerIf鋼筋直徑>0Thena=1Elsea=0EndIfIf鋼筋直徑>最小搭接直徑ThenIf機(jī)械接頭="雙面焊10D"ThenDJ=鋼筋直徑+2EndIfIf機(jī)械接頭="單面焊5D"ThenDJ=鋼筋直徑/2+2EndIfIf機(jī)械接頭="直螺紋"ThenDJ=0EndIfEndIfIf鋼筋直徑<=最小搭接直徑ThenIf搭接類別="腰筋G"ThenDJ=鋼筋直徑*1.5:x=1EndIfIf搭接類別="搭接100%"Or搭接類別="構(gòu)造柱"ThenDJ=MAX(錨固*1.6,30,0,0)*a:X1=1EndIfIf搭接類別="Q"Or搭接類別="Z"Or搭接類別="搭接25%"ThenDJ=MAX(錨固*1.2,30,0,0)*a:X2=1EndIfIfx+X1+X2=0Or搭接類別=""ThenDJ=MAX(錨固*1.4,30,0,0)*aEndIfEndIfEndFunctionPublicFunctionMG(抗震級別AsSingle,鋼筋級別AsSingle,砼號CAsSingle,鋼筋直徑AsSingle)DimjAsSingleDimkAsSingleDimgAsSingleIf鋼筋直徑>=28ThenIf鋼筋級別>=2Thenj=1.1Elsej=1EndIfElsej=1EndIfIf抗震級別<=2Thenk=1.15EndIfIf抗震級別=3Thenk=1.05EndIfIf抗震級別=4Thenk=1EndIfIf鋼筋級別=1And抗震級別<=2ThenIf砼號C<=20Theng=45EndIfIf砼號C=25Theng=39EndIfIf砼號C=30Theng=35EndIfIf砼號C=35Theng=32EndIfIf砼號C=40Theng=29EndIfIf砼號C=45Theng=28EndIfIf砼號C=50Theng=26EndIfIf砼號C=55Theng=25EndIfIf砼號C>=60Theng=24EndIfEndIfIf鋼筋級別=1And抗震級別=3ThenIf砼號C<=20Theng=41EndIfIf砼號C=25Theng=36EndIfIf砼號C=30Theng=32EndIfIf砼號C=35Theng=29EndIfIf砼號C=40Theng=26EndIfIf砼號C=45Theng=25EndIfIf砼號C=50Theng=24EndIfIf砼號C=55Theng=23EndIfIf砼號C>=60Theng=22EndIfEndIfIf鋼筋級別=1And抗震級別=4ThenIf砼號C<=20Theng=39EndIfIf砼號C=25Theng=34EndIfIf砼號C=30Theng=30EndIfIf砼號C=35Theng=28EndIfIf砼號C=40Theng=25EndIfIf砼號C=45Theng=24EndIfIf砼號C=50Theng=23EndIfIf砼號C=55Theng=22EndIfIf砼號C>=60Theng=21EndIfEndIfIf鋼筋級別=2And抗震級別<=2ThenIf砼號C<=20Theng=44EndIfIf砼號C=25Theng=38EndIfIf砼號C=30Theng=33EndIfIf砼號C=35Theng=31EndIfIf砼號C=40Theng=29EndIfIf砼號C=45Theng=26EndIfIf砼號C=50Theng=25EndIfIf砼號C=55Theng=24EndIfIf砼號C>=60Theng=24EndIfEndIfIf鋼筋級別=2And抗震級別=3ThenIf砼號C<=20Theng=40EndIfIf砼號C=25Theng=35EndIfIf砼號C=30Theng=31EndIfIf砼號C=35Theng=28EndIfIf砼號C=40Theng=26EndIfIf砼號C=45Theng=24EndIfIf砼號C=50Theng=23EndIfIf砼號C=55Theng=22EndIfIf砼號C>=60Theng=22EndIfEndIfIf鋼筋級別=2And抗震級別=4ThenIf砼號C<=20Theng=38EndIfIf砼號C=25Theng=33EndIfIf砼號C=30Theng=29EndIfIf砼號C=35Theng=27EndIfIf砼號C=40Theng=25EndIfIf砼號C=45Theng=23EndIfIf砼號C=50Theng=22EndIfIf砼號C=55Theng=21EndIfIf砼號C>=60Theng=21EndIfEndIfIf鋼筋級別=3And抗震級別=4ThenIf砼號C<=20Theng=40EndIfIf砼號C=25Theng=40EndIfIf砼號C=30Theng=35EndIfIf砼號C=35Theng=32EndIfIf砼號C=40Theng=29EndIfIf砼號C=45Theng=28EndIfIf砼號C=50Theng=27EndIfIf砼號C=55Theng=26EndIfIf砼號C>=60Theng=25EndIfEndIfIf鋼筋級別=3And抗震級別=3ThenIf砼號C<=20Theng=42EndIfIf砼號C=25Theng=42EndIfIf砼號C=30Theng=37EndIfIf砼號C=35Theng=34EndIfIf砼號C=40Theng=30EndIfIf砼號C=45Theng=29EndIfIf砼號C=50Theng=28EndIfIf砼號C=55Theng=27EndIfIf砼號C>=60Theng=26EndIfEndIfIf鋼筋級別=3And抗震級別<=2ThenIf砼號C<=20Theng=46EndIfIf砼號C=25Theng=46EndIfIf砼號C=30Theng=40EndIfIf砼號C=35Theng=37EndIfIf砼號C=40Theng=33EndIfIf砼號C=45Theng=32EndIfIf砼號C=50Theng=31EndIfIf砼號C=55Theng=30EndIfIf砼號C>=60Theng=29EndIfEndIfIf鋼筋級別>=4And抗震級別<=2ThenIf砼號C<=20Theng=55EndIfIf砼號C=25Theng=55EndIfIf砼號C=30Theng=49EndIfIf砼號C=35Theng=45EndIfIf砼號C=40Theng=41EndIfIf砼號C=45Theng=39EndIfIf砼號C=50Theng=37EndIfIf砼號C=55Theng=36EndIfIf砼號C>=60Theng=35EndIfEndIfIf鋼筋級別>=4And抗震級別=3ThenIf砼號C<=20Theng=50EndIfIf砼號C=25Theng=50EndIfIf砼號C=30Theng=45EndIfIf砼號C=35Theng=41EndIfIf砼號C=40Theng=38EndIfIf砼號C=45Theng=36EndIfIf砼號C=50Theng=34EndIfIf砼號C=55Theng=33EndIfIf砼號C>=60Theng=32EndIfEndIfIf鋼筋級別>=4And抗震級別=4ThenIf砼號C<=20Theng=48EndIfIf砼號C=25Theng=48EndIfIf砼號C=30Theng=43EndIfIf砼號C=35Theng=39EndIfIf砼號C=40Theng=36EndIfIf砼號C=45Theng=34EndIfIf砼號C=50Theng=32EndIfIf砼號C=55Theng=31EndIfIf砼號C>=60Theng=30EndIfEndIfIf鋼筋直徑=0ThenMG=0ElseMG=g*j*kEndIfEndFunctionPublicFunctionTJ(直徑AsVariant,前端拐長度AsVariant,斜長AsVariant,成品身長AsVariant,原材長度AsVariant,原材模數(shù)AsInteger,NAsInteger)AsVariantDimxAsInteger,CAsIntegerIf前端拐長度>0Thenx=Round(直徑*0.2,0):C=1Elsex=0:C=0EndIfIf成品身長>=原材長度-C*(前端拐長度+斜長)+xThenIfN=0ThenTJ=Round(原材長度/原材模數(shù),0)-C*(前端拐長度+斜長)+xEndIfIfN=1ThenTJ=原材長度-Round(原材長度/原材模數(shù),0)-(前端拐長度+斜長)+xEndIfEndIfIf成品身長<原材長度-C*(前端拐長度+斜長)+xThenTJ=0EndIfEndFunctionPublicFunctionRL(構(gòu)件AsString,LAsSingle,斜長AsVariant,起頭AsSingle,原材AsSingle,搭接長AsSingle,項(xiàng)AsString)DimiAsSingle:DimaAsSingleIf(起頭+斜長)>0ThenIfL-(起頭+斜長)<=原材-搭接長Theni=0:RL=L-(起頭+斜長)+搭接長EndIfIfL-(起頭+斜長)+搭接長>原材ThenIfL-(起頭+斜長)+搭接長-Int((L-起頭+搭接長)/(原材-搭接長))*(原材-搭接長)<=搭接長Theni=Int((L-(起頭+斜長)+搭接長)/(原材-搭接長))-1:RL=L-起頭+搭接長-(Int((L-起頭+搭接長)/(原材-搭接長))-1)*(原材-搭接長)Elsei=Int((L-(起頭+斜長)+搭接長)/(原材-搭接長)):RL=L-(起頭+斜長)+搭接長-Int((L-起頭+搭接長)/(原材-搭接長))*(原材-搭接長)EndIfEndIfa=(起頭+斜長)+i*原材+RLEndIfIf(起頭+斜長)=0ThenIfL<=原材Theni=0:RL=LEndIfIfL>原材ThenIfL-Int((L)/(原材-搭接長))*(原材-搭接長)<=搭接長Theni=Int(L/(原材-搭接長))-1:RL=L-(Int(L/(原材-搭接長))-1)*(原材-搭接長)Elsei=Int(L/(原材-搭接長)):RL=L-Int(L/(原材-搭接長))*(原材-搭接長)EndIfEndIfa=i*原材+RLEndIfIf構(gòu)件="箍筋"Or構(gòu)件="拉筋"Thena=0:RL=0Elsea=a:RL=RLEndIfIf項(xiàng)="收尾筋"ThenRL=RLEndIfIf項(xiàng)="根數(shù)"ThenRL=iEndIfIf項(xiàng)="料長"ThenRL=aEndIfEndFunctionPublicFunctionF(LAsInteger,直徑AsInteger)AsStringDimaAsStringIfL=1Thena="φ"EndIfIfL=2Thena=""EndIfIfL=3Thena=""EndIfIfL=4Thena=""EndIfIfL=5Thena=""EndIfIf直徑>0ThenF=a&直徑ElseF=""EndIfEndFunctionPublicFunctionTC(構(gòu)件類別AsString)AsIntegerDimYAsInteger,y1AsInteger,y2AsInteger,y3AsInteger,y4AsInteger,y5AsIntegerIf構(gòu)件類別="Q"ThenTC=Sheets("參數(shù)表").Range("E14"):Y=1EndIfIf構(gòu)件類別="Z"ThenTC=Sheets("參數(shù)表").Range("E12"):y1=1EndIfIf構(gòu)件類別="B"ThenTC=Sheets("參數(shù)表").Range("E10"):y2=1EndIfIf構(gòu)件類別="L"ThenTC=Sheets("參數(shù)表").Range("E8"):y4=1EndIfIf構(gòu)件類別="JC"ThenTC=Sheets("參數(shù)表").Range("E5"):y5=1EndIfIf構(gòu)件類別="QT"Or構(gòu)件類別=""OrY+y1+y2+y3+y4+y5=0ThenTC=Sheets("參數(shù)表").Range("E4")EndIfEndFunctionPublicFunctionKAG(構(gòu)件類別AsString)AsIntegerDimYAsInteger,y1AsInteger,y2AsInteger,y3AsInteger,y4AsInteger,y5AsIntegerIf構(gòu)件類別="Q"ThenKAG=Sheets("參數(shù)表").Range("D14"):Y=1EndIfIf構(gòu)件類別="Z"ThenKAG=Sheets("參數(shù)表").Range("D12"):y1=1EndIfIf構(gòu)件類別="B"ThenKAG=Sheets("參數(shù)表").Range("D10"):y2=1EndIfIf構(gòu)件類別="L"ThenKAG=Sheets("參數(shù)表").Range("D8"):y4=1EndIfIf構(gòu)件類別="JC"ThenKAG=Sheets("參數(shù)表").Range("D5"):y5=1EndIfIf構(gòu)件類別="QT"Or構(gòu)件類別=""OrY+y1+y2+y3+y4+y5=0ThenKAG=Sheets("參數(shù)表").Range("D4")EndIfEndFunctionPublicFunctionWKL(構(gòu)件類別AsString)AsVariantDima1AsVariant,b1AsVariant,C1AsVariant,DAsVariantIf構(gòu)件類別=""Then構(gòu)件類別=0Else構(gòu)件類別=構(gòu)件類別EndIfa1=InStrRev(構(gòu)件類別,"WKL",Len(構(gòu)件類別)):b1=InStrRev(構(gòu)件類別,"KZL",Len(構(gòu)件類別)):C1=InStrRev(構(gòu)件類別,"QL",Len(構(gòu)件類別))IfMAX(a1,b1,C1,0)>0ThenIfMAX(a1,b1,C1,0)=C1ThenD=MAX(a1,b1,C1,0)+1ElseD=MAX(a1,b1,C1,0)+2EndIfWKL=Mid(構(gòu)件類別,1,D)ElseWKL=""EndIfEndFunctionPublicFunctionTS(構(gòu)件AsString,WKLAsString)AsStringIf構(gòu)件="吊筋"Or構(gòu)件="鴨筋"ThenTS="吊筋"EndIfIf構(gòu)件="懸挑一層"Or構(gòu)件="懸挑二層"ThenTS="懸挑"EndIfIf構(gòu)件="插口"ThenTS="插口"EndIfIf構(gòu)件<>"吊筋"And構(gòu)件<>"鴨筋"And構(gòu)件<>"懸挑一層"And構(gòu)件<>"懸挑二層"And構(gòu)件<>"插口"ThenTS=WKLEndIfEndFunctionPublicFunctionTSG(構(gòu)件AsString,構(gòu)件類別AsString,WKLAsString)AsStringDimaAsIntegerIf構(gòu)件="吊筋"Or構(gòu)件="鴨筋"Or構(gòu)件="懸挑一層"Or構(gòu)件="懸挑二層"ThenIf構(gòu)件="吊筋"Or構(gòu)件="鴨筋"ThenTSG="吊筋":a=1EndIfIf構(gòu)件="懸挑一層"Or構(gòu)件="懸挑二層"ThenTSG="懸挑":a=1EndIfIf構(gòu)件="插口"ThenTSG="插口":a=1EndIfElseIf構(gòu)件類別="B"Anda<>1ThenTSG=Sheets("參數(shù)表").Range("C10")ElseTSG=WKLEndIfEndIfEndFunctionPublicFunctionWd(構(gòu)件AsString,構(gòu)件類別AsString,墻梁寬AsInteger)AsIntegerIf構(gòu)件="拉筋"ThenIf構(gòu)件類別="L"Or構(gòu)件類別="Q"ThenWd=墻梁寬+1-Sheets("參數(shù)表").Range("F3")EndIfIf構(gòu)件類別="Z"ThenWd=墻梁寬-Sheets("參數(shù)表").Range("F3")EndIfEndIfIf構(gòu)件="箍筋"ThenWd=墻梁寬-Sheets("參數(shù)表").Range("F3")EndIfIf構(gòu)件<>"拉筋"And構(gòu)件<>"箍筋"ThenWd=0EndIfEndFunctionPublicFunctionWh(構(gòu)件AsString,墻梁高AsInteger)AsIntegerIf構(gòu)件="箍筋"ThenWh=墻梁高-Sheets("參數(shù)表").Range("G3")ElseWh=0EndIfEndFunctionPublicFunctionWL(構(gòu)件AsString,直徑AsInteger,寬AsInteger,高AsInteger)AsIntegerDimaAsIntegerIf直徑>=8Thena=2*直徑Elsea=15EndIfIf構(gòu)件="箍筋"ThenWL=(寬+高)*2+aEndIfIf構(gòu)件="拉筋"ThenWL=寬+aEndIfIf構(gòu)件<>"箍筋"And構(gòu)件<>"拉筋"ThenWL=0EndIfEndFunctionPublicFunctionWUL(構(gòu)件AsString,級別AsInteger,直徑AsInteger,高AsInteger)AsIntegerDimaAsInteger,bAsIntegerIf級別=1Thenb=1Elseb=0EndIfIf直徑>=8Thena=2*直徑Elsea=15EndIfIf構(gòu)件="插口"ThenWUL=高*2+a*bElseWUL=0EndIfEndFunctionPublicFunctionWMX(構(gòu)件AsString,NAsInteger)AsIntegerDimaAsInteger,bAsIntegerIf構(gòu)件="腰筋G"Or構(gòu)件="腰筋N"Or構(gòu)件="P"Or構(gòu)件="O"Or構(gòu)件="拉筋"Or構(gòu)件="箍筋"Or構(gòu)件="通長"Or構(gòu)件="架立筋"Thena=0:b=0EndIfIf構(gòu)件="A"Or構(gòu)件="P1"Or構(gòu)件="長封"Or構(gòu)件="短封"Or構(gòu)件="懸挑一層"Or構(gòu)件="懸挑二層"Or構(gòu)件="插口"Thena=1:b=0EndIfIf構(gòu)件="B"Or構(gòu)件="P2"Thena=0:b=1EndIfIf構(gòu)件=""Or構(gòu)件="吊筋"Or構(gòu)件="鴨筋"Or構(gòu)件="馬凳"Thena=1:b=1EndIfIfN=0ThenWMX=aElseWMX=bEndIfEndFunctionPublicFunctionWMC(板厚AsInteger,直徑AsInteger,寬度AsInteger,梁高AsInteger,懸挑底長AsInteger,標(biāo)記AsString,錨固AsInteger,構(gòu)件類別AsString,特殊類別AsString)AsVariantIf特殊類別="板"And標(biāo)記=""ThenIf直徑>=板厚-4ThenWMC=板厚-4ElseWMC=直徑EndIfEndIfIf特殊類別="外挑板"And標(biāo)記=""ThenWMC=Round((板厚+7)/2)EndIfIf特殊類別="101-3筏板"And標(biāo)記=""ThenWMC=1.5*直徑EndIfIf構(gòu)件類別="L"And標(biāo)記=""ThenIf特殊類別="吊筋"And標(biāo)記=""ThenWMC=2*直徑EndIfIf特殊類別="懸挑"And標(biāo)記=""ThenWMC=MAX(直徑,懸挑底長,0,0)EndIfIf特殊類別="插口"And標(biāo)記=""ThenWMC=寬度-Sheets("參數(shù)表").Range("F3")EndIfIf特殊類別="QL"And特殊類別<>"吊筋"And特殊類別<>"懸挑"ThenWMC=0.8*錨固EndIfIf特殊類別<>"QL"And特殊類別<>"吊筋"And特殊類別<>"懸挑"And特殊類別<>"插口"ThenWMC=1.5*直徑EndIfEndIfIf構(gòu)件類別="L"And標(biāo)記<>""ThenIf特殊類別="WKL"Or特殊類別=""ThenIfSheets("打印頁").Range("J1")=0ThenWMC=梁高-5EndIfIfSheets("打印頁").Range("J1")=1ThenWMC=1.7*錨固EndIfEndIfIf特殊類別="KZL"ThenWMC=梁高+錨固-5EndIfEndIfIf構(gòu)件類別="Z"And標(biāo)記=""ThenIfSheets("參數(shù)表").Range("K4")=1ThenWMC=Sheets("參數(shù)表").Range("I4")ElseWMC=1.2*直徑EndIfEndIfIf構(gòu)件類別="Z"And標(biāo)記<>""ThenIfSheets("參數(shù)表").Range("O4")=1ThenWMC=Sheets("參數(shù)表").Range("M4")EndIfIfSheets("參數(shù)表").Range("O4")=0ThenWMC=1.2*直徑EndIfEndIfIf構(gòu)件類別="Q"And標(biāo)記=""ThenIfSheets("參數(shù)表").Range("K4")=1ThenWMC=Sheets("參數(shù)表").Range("I4")ElseWMC=1.2*直徑EndIfEndIfIf構(gòu)件類別="Q"And標(biāo)記<>""ThenIfSheets("參數(shù)表").Range("O4")=1ThenWMC=Sheets("參數(shù)表").Range("M4")EndIfIfSheets("參數(shù)表").Range("O4")=0ThenWMC=1.2*直徑EndIfEndIfWMC=Round(WMC,0)EndFunctionPublicFunctionSOUS(構(gòu)件類別AsString)AsVariantDima1AsVariant,b1AsVariant,C1AsVariant,D1AsVariantIf構(gòu)件類別=""Then構(gòu)件類別=0Else構(gòu)件類別=構(gòu)件類別EndIfa1=InStrRev(構(gòu)件類別,"L",Len(構(gòu)件類別)):b1=InStrRev(構(gòu)件類別,"Z",Len(構(gòu)件類別)):C1=InStrRev(構(gòu)件類別,"B",Len(構(gòu)件類別)):D1=InStrRev(構(gòu)件類別,"Q",Len(構(gòu)件類別))IfMAX(a1,b1,C1,D1)>0ThenSOUS=Mid(構(gòu)件類別,1,MAX(a1,b1,C1,D1))ElseSOUS=""EndIfEndFunctionPublicFunctionSOS(構(gòu)件類別AsString)AsVariantDima1AsVariant,b1AsVariant,C1AsVariant,D1AsVariantIf構(gòu)件類別=""Then構(gòu)件類別=0Else構(gòu)件類別=構(gòu)件類別EndIfa1=InStrRev(構(gòu)件類別,"L",Len(構(gòu)件類別)):b1=InStrRev(構(gòu)件類別,"Z",Len(構(gòu)件類別)):C1=InStrRev(構(gòu)件類別,"B",Len(構(gòu)件類別)):D1=InStrRev(構(gòu)件類別,"Q",Len(構(gòu)件類別))IfMAX(a1,b1,C1,D1)=a1ThenSOS="L"EndIfIfMAX(a1,b1,C1,D1)=b1ThenSOS="Z"EndIfIfMAX(a1,b1,C1,D1)=C1ThenSOS="B"EndIfIfMAX(a1,b1,C1,D1)=D1ThenSOS="Q"EndIfIfMAX(a1,b1,C1,D1)=0ThenSOS=""EndIfEndFunctionPublicFunctionMAX(aAsVariant,bAsVariant,CAsVariant,DAsVariant)AsVariantDimxAsInteger,YAsIntegerIfa>=bThenx=aElsex=bEndIfIfC>=DThenY=CElseY=DEndIfIfx>=YThenMAX=xElseMAX=YEndIfEndFunctionPublicFunctionXTJ(LAsSingle,直徑AsInteger,懸挑底長AsInteger,構(gòu)件類別AsString,梁高AsInteger,NAsInteger)AsVariantDimaAsSingle,hAsInteger,λ1AsInteger,L1AsSingle,bAsSingle,PAsIntegerIf構(gòu)件類別="懸挑二層"Thenh=5:λ1=1EndIfIf構(gòu)件類別="懸挑一層"Or構(gòu)件類別="吊筋"Or構(gòu)件類別="鴨筋"Thenh=0:λ1=1EndIfIf構(gòu)件類別<>"懸挑二層"And構(gòu)件類別<>"懸挑一層"And構(gòu)件類別<>"吊筋"And構(gòu)件類別<>"鴨筋"Thenh=0:λ1=0EndIfP=MAX(懸挑底長,直徑,0,0)*λ1If梁高>80Thena=λ1*Int(2*(梁高-h-Sheets("參數(shù)表").Range("G3"))/Sqr(3)):L1=λ1*(L-懸挑底長-(梁高-h-Sheets("參數(shù)表").Range("G3"))/Sqr(3))Elsea=λ1*Int(Sqr(2)*(梁高-h-Sheets("參數(shù)表").Range("G3"))):L1=λ1*(L-懸挑底長-(梁高-h-Sheets("參數(shù)表").Range("G3")))EndIfIf構(gòu)件類別="吊筋"Or構(gòu)件類別="鴨筋"ThenL1=0:P=2*直徑ElseL1=L1:P=PEndIfIfN=0ThenXTJ=PEndIfIfN=1ThenXTJ=MAX(a,0,0,0)EndIfIfN=2ThenXTJ=L1EndIfEndFunctionPublicFunctionJMG(LAsInteger,構(gòu)件類別AsString,錨固AsInteger)AsVariantIf構(gòu)件類別="P"Or構(gòu)件類別="P1"Or構(gòu)件類別="P2"Or構(gòu)件類別="腰筋G"Or構(gòu)件類別="腰筋N"ThenJMG=LEndIfIf構(gòu)件類別="架立筋"Or構(gòu)件類別=""Or構(gòu)件類別="吊筋"Or構(gòu)件類別="鴨筋"ThenJMG=LEndIfIf構(gòu)件類別="A"Or構(gòu)件類別="B"ThenJMG=L+錨固EndIfIf構(gòu)件類別="O"ThenJMG=L+錨固*2EndIfEndFunctionPublicFunctionLJM(構(gòu)件類別AsString,NAsInteger)AsVariantDimaAsVariant,bAsVariant,CAsVariant,DAsVariant,EAsVariant,FAsVariant,F1AsVariant,b1AsVariant,b2AsVariantIf構(gòu)件類別=""Then構(gòu)件類別=0EndIfF=InStrRev(構(gòu)件類別,"(",Len(構(gòu)件類別))F1=InStrRev(構(gòu)件類別,"件",Len(構(gòu)件類別))a=InStrRev(構(gòu)件類別,")",Len(構(gòu)件類別))b=InStrRev(構(gòu)件類別,"x",Len(構(gòu)件類別))C=InStrRev(構(gòu)件類別,"X",Len(構(gòu)件類別))D=InStrRev(構(gòu)件類別,"*",Len(構(gòu)件類別))E=InStrRev(構(gòu)件類別,"×",Len(構(gòu)件類別))If構(gòu)件類別<>""ThenIfb>0Thenb=bElseb=MAX(b,C,D,E)EndIfIfN=0ThenIfb=0ThenLJM=0ElseLJM=Mid(構(gòu)件類別,a+1,b-a-1)/10EndIfEndIfIfN=1ThenIfb=0ThenLJM=0ElseLJM=Mid(構(gòu)件類別,b+1,Len(構(gòu)件類別)-b)/10EndIfEndIfIfN=2ThenIfb=0ThenLJM=0ElseLJM=Mid(構(gòu)件類別,F+1,F1-F-1)EndIfEndIfElseLJM=0EndIfEndFunctionPublicFunctionGJS(抗震級別AsSingle,層數(shù)AsString,間距AsVariant,構(gòu)件AsString,LAsSingle,LZ高AsSingle,NAsSin