【文章內(nèi)容簡(jiǎn)介】 awingSendCommand spl For i 0 To n cx CStr i xi xs c CStr i xi xs a Replace b v cx ThisDrawingSendCommand cal [ c a ] Chr 13 cal命令的表達(dá)式輸入不能用空格必須用回車(chē) Next i If xe xi n xs Then cx CStr xe c CStr xe a Replace b v cx ThisDrawingSendCommand cal [ c a ] Chr 13 Chr 13 Chr 13 Chr 13 Else ThisDrawingSendCommand Chr 13 Chr 13 Chr 13 End If End End Sub Private Sub CommandButton2_Click End End Sub Private Sub CommandButton3_Click FmShow End Sub 3 創(chuàng)建模塊以使窗體可視化程序?yàn)? Public Sub c 函數(shù)曲線功能 Show End End Sub 4 創(chuàng)建按鈕定義宏時(shí)命令與高程標(biāo)注按鈕的定義有些不同宏的內(nèi)容為ccvbarun c 確定后公式曲線的制作完成 Excel 到 AutoCAD 的參數(shù)化制圖功能的實(shí)現(xiàn) 在 Excel 中調(diào)用 CAD 步驟如下 1 在 Excel 工具菜單欄下啟用宏的 VB 對(duì)話框 2 在工具引用 AUTOCAD 2021 object library 3 在 VB 對(duì)話框中插入模塊同時(shí)輸入調(diào)用 CAD 的程序 程序如下 public Acadcpp as autocad Public sub autocad On error resume next Set acadapp getobjectautocadapplication If err then Errclear Set acadapp createobject autocadapplication If err then Mag box 不 能 運(yùn) 行 Autocad2021 請(qǐng) 檢 查 是 否 安 裝Autocad2021 Exit sub End if End if Acadappvisible true End sub 4 待程序啟用后 autocad 將被啟動(dòng)在 end sub 前輸入繪圖程序即可在AutoCAD 中自動(dòng)生成圖形 5 以繪以 55 為圓心 10 為半徑的圓為例編輯程序如下 acadappActive documentsend mandc chr 13 55 chr 13 10 chr 13 或 acadappActive documentsend mand cells00 chr 13 cells50 chr 13 cells100 chr 13 ① cells作用是對(duì) excel表格中數(shù)據(jù)的引用后面括號(hào)表示調(diào)用數(shù)據(jù)在表格中的位置 c 是 AutoDCAD 中的灰土命令 ② chr13 作用是回車(chē)命令 ③ 作用是回車(chē) 以上是 CAD 的開(kāi)發(fā)在后面均有應(yīng)用 Excel 到 AutoCAD 各種曲線功能的繪制 1 首先將計(jì)算所得各種數(shù)據(jù)插入 Excel 中如圖 18圖 19 所示其中下述表格中以溢流曲線數(shù)據(jù)表為例第 D 列的數(shù)據(jù)處理 spline 為 AutoCAD 中的樣條曲線命令第 D 列數(shù)據(jù)為 A2C2 所組成的坐標(biāo)點(diǎn) 2 在 Excel 中 選中所演算好的數(shù)據(jù)然后點(diǎn)擊右鍵選擇復(fù)制 3 運(yùn)用上述 Excel 調(diào)用 AutoCAD 的功能打開(kāi) AutoCAD2021 4在 AutoCAD2021的下框顯示命令處點(diǎn)擊右鍵跳出對(duì)話框從中選取粘貼此時(shí)AutoCAD2021 自動(dòng)完成圖形的繪制具體圖形見(jiàn)下列各章 圖 18 溢流曲線數(shù)據(jù)表 圖 19 流量差積曲線數(shù)據(jù)表 基本資料 流域概況與氣候條件 流域概況 紅巖水電站位于第二松花江的上游在豐滿水庫(kù)干流回水的末端壩址以上的流域面積為 20300 平方公里其上游 38 公里處的水庫(kù)末端為白山水電站紅巖電站系松花江上游白山電站與豐滿電 站之間的一個(gè)梯級(jí)電站 紅巖以上流域位于長(zhǎng)白山脈的西北坡發(fā)源于長(zhǎng)白山的天池分頭道江二道江并在下兩江口匯合成為第二松花江干流流向西北本流域南臨鴨綠江上游東北為圖門(mén)江與牡丹江其西南為渾江流域 白山到紅巖區(qū)間的流域面積為 1300 平方公里較大支流均在右側(cè)有葦沙河控制流域面積 534平方公里色洛河控制流域面積 456平方公里此二大支流占全區(qū)間面積的 76 且流經(jīng)山谷之中河道的平均比降 6‰左右流域內(nèi)為山林區(qū)植被尚好由于兩支流長(zhǎng)度相近暴雨后的洪水集流較快區(qū)間流量較大紅巖流域概況見(jiàn)圖 1 圖 2 1 梯級(jí)布置平面示意圖 氣候條件 紅巖以上流域處于高寒地區(qū)冬季較長(zhǎng)積雪較深夏秋季多雨紅巖站的年降雨量變化在 600∽ 1000 毫米多年平均雨量為 854 毫米夏秋季 6～ 9 月份雨量約占全年雨量的 60～ 70 年蒸發(fā)量據(jù)白山占觀測(cè)資料統(tǒng)計(jì)變化在 850～ 1174 毫米從紅巖站現(xiàn)有氣象觀測(cè)資料中統(tǒng)計(jì)多年平均氣溫為 3℃最低氣溫 365℃最高氣溫 38℃最大風(fēng)速為 253ms 西北方向由于觀測(cè)年限不長(zhǎng)這些氣象數(shù)據(jù)僅供設(shè)計(jì)時(shí)參考 月份 1 月 2 月 3 月 4 月 5 月 6 月 7 月 8 月 9月 10 月 11 月 12 月 全年 平均 192 153 54 49 131 176 316 210 130 53 55 152 30 最高 40 120 190 270 316 330 370 370 360 270 161 85 380 最低 365 317 286 108 108 30 94 08 20 120 240 335 365 表 2 1 紅巖站氣溫統(tǒng)計(jì)表 紅巖河段冰期較長(zhǎng)一般在十月中旬即可見(jiàn)冰十一月上旬開(kāi)始流凌十一月下旬開(kāi)始封凍直到次年四月上旬才進(jìn)入無(wú)冰期整個(gè)冰期可達(dá) 5～ 6 個(gè)月 水文站與徑流資料 紅巖水文站位于壩址下游二公里處 1936 年建站 1945 年∽ 1950 年缺測(cè)解放后繼續(xù)觀測(cè)至今白山水文站位于紅巖壩址上游約 38公里處 1957年建站連續(xù)觀測(cè)至今白山至紅巖區(qū)間各支流均未設(shè)站進(jìn)行觀測(cè)在葦沙河上的夾皮溝僅有一處雨量站約有 20 年的觀測(cè)資料因此區(qū)間的洪水參數(shù)主要石根據(jù)鄰近地區(qū)河流的水文觀測(cè)資料綜合分析出來(lái)的 由于白山水庫(kù)有效興利庫(kù)容 28億 m3已經(jīng)蓄水發(fā)電紅巖壩址的天然來(lái)水將被調(diào)節(jié)因此紅巖電站的年月徑流主要石根據(jù)白山水庫(kù)調(diào)節(jié)后的徑流和白山壩址至紅巖壩址區(qū)間的徑流綜合而成白山站的年月徑流資料經(jīng)插補(bǔ)延長(zhǎng)可得 1933 年以來(lái)約 40余年的徑流系列其多年平均徑流量為 239m3s紅巖站的年月徑流資料經(jīng)插補(bǔ)延長(zhǎng)也可得到 40余年其多年平均徑流量為 258m3s白山至紅巖間未進(jìn)行過(guò)專(zhuān)門(mén)水文水文觀測(cè)僅有干流兩站 1957 年以來(lái)同步對(duì)應(yīng)的觀測(cè)資料區(qū)間的徑流由兩站相減而得 經(jīng)紅巖站長(zhǎng)短徑流系列比較采用 1956年～ 1971年的代表段系列其多年平均流量為 258m3s 在這個(gè)代表段中既由明顯得豐水段 19601964 年平均流量為297m3s也由枯水期 19671970年平均流量為 194m3s這個(gè)系列基本上可反應(yīng)出徑流的年際與年內(nèi)的各種分布情況詳見(jiàn)表 2和表 5各控制點(diǎn)的年月平均流量及年徑流統(tǒng)計(jì)成果參見(jiàn)表 3 和表 4 表 2 2 白山站年月平均流量表 年份 1 月 2 月 3 月 4 月 5 月 6 月 7 月 8 月 9月 10 月 11 月 12 月 年 56 386 345 576 318 524 727 1060 483 367 109 695 437 320 57 392 354 374 557 418 328 272 1010 266 166 904 467 272 58 442 401 823 296 309 282 212 140 922 101 674 518 143 續(xù)表 2 2 59 414 342 633 291 289 251 573 303 286 233 174 456 216 60 417 387 752 294 507 663 448 1420 383 148 904 470 346 61 373 340 724 294 333 193 501 512 452 158 118 562 230 62 428 399 439 501 391 136 205 566 432 173 133 627 227 63 445 376 525 250 204 156 819 576 602 287 134 535 268 64 435 354 421 715 291 392 505 1290 281 131 716 470 320 65 414 436 484 445 525 144 107 625 289 117 829 463 210 66 412 362 621 568 423 313 529 642 178 160 169 541 264 67 476 406 737 340 502 285 408 243 903 741 594 307 183 68 298 286 614 237 208 382 314 274 290 106 889 788 175 69 371 368 423 305 371 623 440 317 133 100 582 401 208 70 352 344 430 268 360 142 166 314 980 963 876 435 141 71 319 285 598 207 234 610 826 723 440 264 101 496 298 平均 398 362 573 3679 3681 3517 4616 5899 2925 1515 997 498 239 月份 1 月 2 月 3 月 4 月 5 月 6月 7 月 8 月 9 月 10 月 11 月 12 月 全年 白山 399 362 574 368 368 352 461 589 292 151 998 501 239 區(qū)間 38 26 38 333 307 233 367 505 247 115 66 35 192 紅巖 437 388 612 401 369 375 498 640 317 163 106 536 258 表 2 3 紅巖白山及區(qū)間多年月平均流量 表 2 4 白山區(qū)間徑流統(tǒng)計(jì)成果表 控制點(diǎn) 各種頻率 P 及對(duì)應(yīng)流量值 1 2 5 10 25 50 75 80 90 95 白山 436 408 368 336 282 232 186 176 153 134 區(qū)間 39 357 319 284 232 184 142 135 111 90 注白山站的均值為 239 m3sCV 03CSCV 2 白紅區(qū)間的均值為 192 m3sCV 036CSCV 2 表 2 5 白山紅巖站區(qū)間年徑流表 年份 1 月 2 月 3 月 4 月 5 月 6 月 7 月 8 月 9月 10 月 11 月 12 月 年 56 35 24 34 220 360 500 700 340 260 80 48 30 220 57 27 24 25 380 280 220 190 700 180 120 62 32 187 58 31 28 57 320 130 100 100 50 60 40 74 35 86 59 26 21 44 160 200 170 210 310 340 220 30 32 147 60 28 31 89 250 490 520 390 800 270 100 63 32 255 61 27 24 54 200 160 110 150 320 390 100 80 40 138 62 30 27 30 350 340 90 170 340 200 90 100 43 151 63 31 28 37 160 80 40 740 150 470 360 90 40 185 64 30 25 30 500 200 80 60 900 30 90 50 31 169 65 28 31 33 380 650 130 70 760 420 80 57 33 223 66 28 25 26 530 420 210 710 1110 220 80 80 39 290 67 33 43 19 350 720 370 540 430 80 39 63 21 226 6