簡(jiǎn)用鋼筋翻樣軟件簡(jiǎn)圖VBA參考專用方法金名稱褲說明紋示例珍Label索表示簡(jiǎn)圖上的可一個(gè)標(biāo)簽融LabelA賤昏表示標(biāo)本簽趕A犧如果桐Label兄A傲寫的駱是勤200*10要LabelA丑閱返暴回道2000工OpenVa陪l敏處理臣用螺*父號(hào)表示的格式船字符黑如果句Label濱A玻寫的噴是凳200*10脊OpenVa冤l柏(Label嗚A).A湖黎返炮回紫200臥OpenVa隙l胃(Label眉A).B降腎返鈴回舞10芳GjinBi悅ao納處理用合如顆C8@20慘0宗的格式字符旺如果垮Label晌A支寫的是梨C8@200為GjinBi證ao丸(Label牽A).A踏洋返菌回挖C店GjinB懼iao腔(Label兔A).B污睜返灌回濤8進(jìn)GjinBi灰ao恩(Label鑒A).C浴春返候回委200浙GjinBi鎖ao噸(Label投A).息D矮返歐回骨C8刃SetVal惱更改標(biāo)簽的內(nèi)箱容劑(左不能放置在過李程或函數(shù)安中武)勞如果叛Label家A蘿寫的敞是問200暮SetVal誕(Label犯A,1000詠)姻將會(huì)屢使哪Label惑A向的內(nèi)容更改淚為碼1000披SetRow方指示向料表上訪插入一爐行灣(劇不能放置在過權(quán)程或函數(shù)動(dòng)中豎)霞SetRow秀(掀樓貴梯摘/Im1,A帥T1,Gji是nBiao(慈LabelI悅).D,Ge蹄tL_2擁,獎(jiǎng)底戀筋東,,,G殺etL_1)妖參數(shù)解紅釋惠:泳樓遍梯鼻/Im1漁堵在簡(jiǎn)圖列上插歐入樓梯文件夾焰中名杏為賤Im放1塞的簡(jiǎn)圖是AT1輕汽在構(gòu)件號(hào)列寫墨入狠AT1舊GjinBi腐ao(Lab法elI).D武鄰惜在直徑列列寫季入標(biāo)套簽謹(jǐn)Label面I弟上表示直徑的勸數(shù)據(jù)噴GetL_2泉炸在數(shù)量列上寫背入由函奇數(shù)頁(yè)GetL_批2羞計(jì)算的結(jié)果沒園歉單件數(shù)量列不捕寫內(nèi)容傍兇恥構(gòu)件數(shù)量列不憤寫內(nèi)容赤GetL_1浙洗犁簡(jiǎn)圖上各段的尿長(zhǎng)度由函者數(shù)輔GetL_迅1壞計(jì)勺算途(寺結(jié)果是一個(gè)數(shù)黎組鐘)常用VB函數(shù)酸名稱陜說明怕Atn饑返回一個(gè)數(shù)的哨反正切值梨Cos弱返回指定一個(gè)惑角的余弦值參(爪弧擊度距)塞Sin拘返回指定參數(shù)義的正弦值功(沖弧什度共)敲Tan終返回指定一個(gè)功角的正切值忍(弟弧果度森)刃Round去返回指定的小純數(shù)位數(shù)進(jìn)行四述舍五入運(yùn)算的窩結(jié)果菜榜Round隸(3.141尼5茄)界返求回跨3懲Round衛(wèi)(3.141虎5早，潮1箏)殺返元回貫3.1家Array畢返回一個(gè)數(shù)耗組貫售Array扶(雪2,3)村返回具有兩個(gè)嚇元素的數(shù)組更多可參考VB語(yǔ)言資料示例程序申明公共變量，可將常用值放在這是，就不用反復(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=變Label斜J習(xí)FL=B添H/ks-B揚(yáng)H/k拘EndSu濕b轉(zhuǎn)Functi糠on棉GetL_洗1翻a=旬Round跡(默Label單A+陪Label甩B+FL-5斑0)拆b=匆Round龜(液簡(jiǎn)Label標(biāo)C/kc+勺BH/ks+爸Label誤K/ks價(jià))-80飼GetL_段1=塘Array埋(聽a,b,20限0)用這個(gè)函數(shù)來計(jì)算底筋的數(shù)量按EndFu暈nction用這個(gè)函數(shù)來計(jì)算底筋的數(shù)量揀Functi錫on覽GetL_葬2遼GetL_臥2=智Round浮(涌(撓Label痰H-50)/懼GjinBi茫ao棟(須Label亮G).C)+趁1用這個(gè)函數(shù)來計(jì)算上底筋的長(zhǎng)度及EndFu沖nction用這個(gè)函數(shù)來計(jì)算上底筋的長(zhǎng)度卵Functi勤on懇GetL_副3葵a=謠Label奶D+睜Label獸E-逆OpenVa喘l這(晃Label靜C).A+惹粗Round易(技Label芽J/k)駱-80壤GetL_駐3=灌Array劍(礙200,a)用這個(gè)函數(shù)來計(jì)算下蓋筋的長(zhǎng)度燙EndFu往nction用這個(gè)函數(shù)來計(jì)算下蓋筋的長(zhǎng)度杠Functi赴on摟GetL_襪4伐a=架Label仔A+坦Label導(dǎo)B+需Round葛(福FL+斧Label押J/k)漸-80離GetL_秧4=帆Array語(yǔ)(域100,a,堪200)計(jì)算蓋筋的數(shù)量摔EndFu權(quán)nction計(jì)算蓋筋的數(shù)量府Functi含on芳GetL_漢5用這個(gè)函數(shù)來計(jì)算上蓋筋的長(zhǎng)度辛GetL_自5=祖Round君(校(祝Label起H-50)/闖GjinBi況ao承(屑Label論F).C)+團(tuán)1用這個(gè)函數(shù)來計(jì)算上蓋筋的長(zhǎng)度煌EndFu源nction暑Functi胞on禽GetL_慘6洲a=衛(wèi)Round塔(隙愈Label擔(dān)C/kc+斷BH/ks+晚Label報(bào)K/ks寇)-80聞b=奪釀Label竿D+穴Label鏟E-豆OpenVa賺l畏(才Label松C).A蒙-80雹GetL徑_6=匠Array鴉(哲200,a,億b,100)淋EndFu笨nction計(jì)算分步筋的長(zhǎng)度計(jì)算分步筋的長(zhǎng)度貫Functi慮on們GetL_爬7茶b=撓肌Label亮H-50娃GetL襯_7=駛Array洲(尚b)計(jì)算分步筋的數(shù)量彩EndFu勺nction計(jì)算分步筋的數(shù)量昂Functi勒on穿GetL_篇9雕S=(脈Label羊B+卵Label壓C/kc貢+勞Label悄D)/唇GjinBi坡ao拳(州Label案I).C+1粗GetL_喜9=乓Round迎(烏S*2+1)鎮(zhèn)EndFu捕nction斑SetRow廊(柔樓鳳梯狡/Im8,B菜T1,烈GjinBi敘ao編(蠢Label慰G).D,G偶etL_2鈔,稻底寄筋伶,,,晶GetL_1宿)雷SetRow賄(餡樓器梯抖/Im9,踩,塌GjinBi床ao釣(胡Label不G).D,G傘etL_2亦,紗底踢筋溝,,,葬GetL_3口)輝SetRow痕(萬(wàn)樓屈梯袋/Im7,露,輕GjinBi傍ao礎(chǔ)(博Label閑F).D,G赤etL_5伯,寨下蓋匯筋物,,,廉GetL_4舞)窩SetRow