用EXCEL計算直線的坐標方位角

1、 文章編號 :100926825(2008 1720362202用 EXCE L 計算直線的坐標方位角收稿日期 :2008202228作者簡介 :季中文 (19652 , 男 , 高級講師 , 無錫商業(yè)職業(yè)技術學院 , 江蘇 無錫 214153季 中 文摘 要 :為了解決運用計算器計算坐標方位角比較繁瑣的問題 , 根據(jù)坐標方位角的計算步驟 , 介紹一種運用 EXCEL 中的函數(shù)編程 , 快速求解直線坐標方位角的方法 , 從而為測量工作提供了方便 。 關鍵詞 :坐標方位角 , 象限角 ,IF 函數(shù) 中圖分類號 :TP391文獻標識碼 :A 工程測量中常常需要根據(jù)直線上兩點坐標求直線的坐標方位角

2、, 得到放樣數(shù)據(jù) 。運用計算器計算直線坐標方位角比較繁 瑣 , 文中介紹一種用 EXCEL 快速求解直線坐標方位角的方法 。1 坐標方位角和象限角的概念從某點的坐標縱線北方向起 , 依順時針方向到目標方向線間的水平夾角 , 稱為該直線的坐標方位角 。直線與坐標縱線方向所夾的銳角稱為直線的象限角 。 坐標方位角與象限角的關系見圖 1。2 坐標方位角的計算步驟 2. 1 計算直線的象限角 R ABx =X B -X A , y =Y B -Y A , R AB =tg -1 y/x 。2. 2 計算直線的坐標方位角先根據(jù) x , y 的符號判定直線方位角所在的位置 , 再根據(jù) 坐標方位角和象限角的

3、數(shù)學關系計算坐標方位角 , 具體見表 1。表 1 利用數(shù)學關系計算坐標方位角x y 直線位置坐標方位角>0=0<0>0第 象限 AB =R AB =0X 軸正向 AB =0<0第 象限 =2-R >0Y 軸正向 AB =/2=0同一點 AB 不存在 Y =3/2>0第 象限 =-R =0X 軸負向 AB =<0第 象限 AB =+R AB3 用 EXCE L 編輯工作表計算坐標方位角 3. 1 用 EXCEL 計算坐標方位角的表格利用 EXCEL 編輯工作表計算坐標方位角 (見表 2 。3. 2 對表格的說明最左邊 1列是行號 ,A 列 ,B 列是對

4、C 列的說明 ,C 列是輸入 、 計算和輸出的數(shù)據(jù) 。表 2 利用 EXCE L 計算坐標方位角ABC 1X 43543. 3662已知 Y 65866. 9793已知 X B 43563. 3664已知Y B65966. 9795x 20. 0006y100. 0007x 5. 0008y /x 1. 3731. 37340076778. 690068(整度數(shù) 78( 4113( 整秒數(shù) 2414坐標方位角 用度分秒表示78°41 24 最上面 1行是列號 , 第 1行到第 4行是輸入的 A , B 兩點坐 標 , 第 5行到第 8行計算象限角 , 第 9行根據(jù)象限角求出用弧度 表

5、示的坐標方位角 , 第 10行到第 14行將用弧度表示的坐標方位 角換算成用度 、 分 、 秒表示的坐標方位角 , 以便于使用 。3. 3 C 列各單元格的計算C1:輸入 A 點 X 坐標 X A C2:輸入 A 點 Y 坐標 Y A C3:輸入 B 點 X 坐標 X B C4:輸入 B 點 Y 坐標 Y B C5:=C3-C1C6:=C4-C2C7:=ABS (C6/C5C8:=A TAN (C7C9:=IF (C5=0, IF (C6>0,PI (/2, IF (C6<0,3×PI (/2, 同 一點, IF (C5>0,IF (C6>0,C8,IF (C

6、6<0,2×PI (-C8,0 , IF (C5<0,IF (C6>0,PI (-C8,PI (+C8 C10:=DEGREES (C9 C11:=IN T (C10C12:=IN T (C10-C11 ×60 C13:=ROUND (C10-C11 ×60-C12 ×60,0 C14:=CONCA TENA TE (C11, $A $11,C12, $A $12,C13, $A $134 工作表的使用方法1 直接將兩點坐標輸入 C1,C2,C3,C4, 在 C14中 , 自動得到坐標方位角 ;263 第 34卷 第 17期 2008年

7、 6月 山 西 建 筑 SHANXI ARCHITECTURE Vol. 34No. 17J un. 2008 文章編號 :100926825(2008 1720363202地 形 圖 剪 切 程 序 的 研 究收稿日期 :2008203203作者簡介 :孟令紅 (19752 , 男 , 助理工程師 , 貴州省交通規(guī)劃勘察設計研究院 , 貴州 貴陽 550001孟 令 紅摘 要 :為了對公路或鐵路線路大幅帶狀地形圖中的各種實體進行剪切操作 , 利用 ObjectARX 在 VC +平臺上開發(fā)了 窗口剪切程序 , 同時完善了對子曲線進行取舍操作的算法 , 并對文字及塊實體的處理方法作了簡單介紹

8、。 關鍵詞 :實體剪切 , 地形圖 , 程序 , 設計 中圖分類號 :TP391文獻標識碼 :A 在公路和鐵路路線設計中 , 需要經(jīng)常對大幅帶狀的地形圖進 行任意形狀邊界的剪裁操作 , 將邊界內(nèi)實體提取出來成為另一幅 圖 。 運用專業(yè)的大型軟件進行此項操作較復雜 , 文中利用成熟 、 高效的 AutoCAD 二次開發(fā)工具 ObjectARX 開發(fā)了一個窗口剪切程序 。 該工具在 AutoCAD 中注冊為外部函數(shù)命令 , 可直接在 Au 2toCAD 中調(diào)用 , 提高了工作效率 。1 基本思路 首先遍歷地形圖中所有的實體 , 并得到其 ID 。 然后根據(jù)提示 在屏幕上輸入或選擇多個點 , 生成一

9、閉合的 AcDbPolyline 類對象 作為剪切邊界 。 最后依據(jù)不同種類的實體對象進行不同方法的 剪切操作 :1 對曲線的剪切操作的基本思路及步驟有 :a. b. 將原曲線重畫 ( 形成一系列首 尾相連的子曲線 ; c. 判斷各子曲線的中點是否在閉合剪切邊界內(nèi) , 若在邊界 內(nèi) , 則將此段子曲線添加到當前數(shù)據(jù)庫中 ; d. 最后將原曲線從數(shù)據(jù)庫中刪除 。 2 對填充則需構造一個有新的邊界的填充實體 :a. 將剪切邊界與原填充實體的最外層邊界生成面域 AcD 2bRegion 類對象 ; b. 利用面域的布爾運算求二者的面域交集作為新填充實體 對象的外層邊界 ; c. 依次將原填充實體的各

10、內(nèi)邊界所生成的面域與剪切邊界 生成的面域的交集添加到新填充實體中作為內(nèi)層邊界 ; d. 按照原填充實體的屬性對新填充實體進行填充 ; e. 刪除原填充實體 。下面分別介紹對各種實體的具體剪切過程 。 2 剪切曲線實體 2. 1 普通曲線實體與剪切邊界曲線的交點求法對除了 AcDb3dPolyline 類對象外 , 常見的曲線實體包括直線 、 圓 、 樣條曲線 、 橢圓等 , 都可以將剪切邊界所在平面生成一Ac G ePlane 平面后直接調(diào)用函數(shù) :intersectWith( 求交點 , , , 最后得到的交 , intersectWith 。類曲線與剪切邊界曲線的交點求法 對 AcDb3d

11、Polyline 類曲線 , 需先將被剪曲線投影到剪切邊界 所在平面 , 再調(diào)用 intersectWith (函數(shù)求出剪切邊界與投影體的交點 。 利用投影體上某點的 Param 值 (由 get ParamAt Point ( 得 到 與原被剪曲線上對應點的 Param 值相等的原理 , 可以將求得的交點返回到原被剪曲線上去 。 簡略代碼如下 :Ac G ePlane plane ;/定義剪切邊界所在平面AcDbCurve 3projCurve ;/定義被剪曲線在剪切邊界所在平 面上的投影曲線 p3dP olyline ->getProjectedCurve (plane ,norma

12、l ,projCurve ;/得 到投影曲線 ,normal 為投影平面的法向量projCurve ->intersectWith (pP olyline ,AcDb :kOnBothOperands , ptArr ,0,0 ;/ptArr 為求得的投影曲線與剪切邊界曲線的交點數(shù)組 ,p Polyline 為剪切邊界曲線 /將交點返回到原三維多義線上 ,temptArri即為最終得到的原三維多義線上的點 2 也可將 C 列復制到其他列 , 再將坐標輸入到相應的單元 格 , 得到坐標方位角 ;3 為使界面整潔 , 可隱藏 5行8行 ,10行13行 。5 結語從表 1可以看出 , 直線的坐

13、標方位角有 9種可能的情況 , 其 判斷和輸出比較繁瑣 。文中編程的最大技巧在于用一個多重的 IF 函數(shù)來計算輸出 , 因而直線的坐標方位角計算非常簡便 。C alculating the coordinate azimuth of straight line by using EXCE LJI Zhong 2w enAbstract :To solve the problems that it is superfluous and complicated of calculating the coordinate azimuth of straight line by using calculator and according to the calculating process of coordinate azimuth , it introduces the method of using the function program of EXCEL solve the co 2or