十字路口生成器+道路修補

應網友要求寫了一個 十字路口生成器+道路修補功能 這可花了我一個多月的休息時間,修修改改來完成 經反覆測試後效果還不錯,拿出來提供給有需要的人, 有在Autocad2010 及Autocad2018 測試過ok

1. 顧名思義最低要求最少要繪出一個 (含一個)以上的十字路口才能形成道路,因此不管前面如何彎曲繞路最後只要有交叉形成一個十字路口都算符合規則能成道路，

若單獨畫一字路,ㄈ字形路,ㄇ字型 ,或頭尾相接口字型 ,ㄑ 字型等都不能形成道路

1. 如果你的電腦夠強,只要符合規則,這個程式可連續轉彎交叉繞出許多十字路口,只須注意道路可轉彎交叉形成路口 路與路之間的平行或垂直若很靠近時須保持最小的間隔距離

不可重疊或部分重疊 ,但是十字路口可重疊,因此可在十字路口再繞過一個或二 個斜路形成三交或四交叉口(註:要整體一次繞完)只不過 這樣的三交四交叉路口中的殘留物須自行去除

1. 使用(milne)雙線繪製道路,所以自由度很高滑鼠可拉長度,可控制方向 ,也可滑鼠控制方向長度用鍵盤輸入 ,因此配合 F8按鍵(垂直水平) 可繪製各種道路
2. 指令 rd ,srd有兩種功能 1.繪製道路 2.補路 ，若是在既有的兩道路間繪出一條路視為補路,例在A路與B路之間補一條路,起始在A結束一定要在B 或者也可起始在A 結束在A (例 :在A補上ㄈ字形,ㄇ字型路)

在A路所補的道路 起始路寬線需在A道路外側線及內側線的範圍內 在 B道路結尾路寬線亦同 ,因此只要在規定的範圍內便可在A,B之間 依照拉出的路寬 ,補出大小路

1. sld指令用於補路,當兩道路間有一條或多條從中穿越的道路時就必須用 sld 不能用rd 或srd 使用sld指令 畫線取得 這些從中穿越道路的各路寬值,才能成功補路

rd 功能: 1.繪製道路 2.補路(兩路間) 道路寬由滑鼠(按左鍵)1,2點決定 第3點拉出方向及距離 ,距離確定按滑鼠左鍵,完成道路按空白鍵 srd 功能: 1.繪製道路 2.補路(兩路間) 道路寬由鍵盤輸入 其他功能同上 sld 功能: 1.畫線取距離用於補路,(兩路間有一條或多條橫越道路) std 功能: 1.設定道路倒圓角參數 默認值 3 , 設定畫線取路寬值容許誤差 默認值 0.02 prd 功能: 1.顯示目前的道路寬值或經由sld指令取得的各段路寬值

道路完成後,讓視窗回到原工作畫面,因此在程式中 (pj ss4) (sel_Fillet "地形地貌" kng) (command "zoom" "p") ;;顯示前一畫面範圍 << 新增此行>> (RestoreVars) ;;還原儲存的系統變數