在采矿设计图中,我们通常要通过一个已知点的坐标,推算出其他点的坐标。或是由一个坐标系,算出N个点的坐标,如果按老办法,用查询工具查出点到 XY轴的距离,再一点一点用计算器算出来,这样的效率会非常慢,而且随着计算次数的增加,出错的概率也非常大,现介绍些非常实用的方法,能提高我们的办事 效率,希望此分享能帮上些同行,或是办类似事的人。
方法一:
1、新建一個坐標系:工具-新建UCS-三點,確定原點O和XY軸。
2、校准:工具-查詢-點坐標,任點一個點,看其坐標與新建的坐標是否一吻合,如果不合,再重新坐標系。
3、在命令一欄中輸入pl,也就是多段線的命令,將我們要畫的點的起點依次連接起來。
4、輸入li命令,將3步驟的多段線給選擇,再依次選擇與多段線相交的線段(相交的點的坐標是我們要求的點的坐標,不求的點不用選)。
5、按下回車或空格鍵,此時要求的點的坐標就出來了。
此方法優點,方便速度快。缺點:如果選擇線段交點出錯時,導出的點會對不上順序,適用于找點坐標不多的情況。
方法二:
複制下面代碼:
(defun c:md()
(setvar "cmdecho" 0)
(COMMAND ".UNDO" "BE")
(command "-units" "2" "3" "2" "3" "" "")
(setq fp (open "d:/桩号坐标值.xls" "a") s (getvar "cmdecho") n (getint "\n请输入总桩数! "))
(princ "桩号" fp)(princ "\t" fp)
(princ "X坐标值" fp)(princ "\t" fp)
(princ "Y坐标值" fp)(princ "\n" fp)
(repeat n (setq k (getstring "\n输入桩号(如:K1)!") p (getpoint "\n选取节点!") x (strcat "X=" (rtos (nth 0 p))) y (strcat "Y=" (rtos (nth 1 p)))) (princ k fp)(princ "\t" fp) (princ x fp)(princ "\t" fp) (princ y fp)(princ "\n" fp)) (close fp) (setvar "cmdecho" s)) (princ "\n提示:输入 MD 命令来运行本程序!") (princ)
1、 打开记事本,粘贴以上代码,然后保存成 md.lsp
2、 打开CAD并加载这个小程序(在命令行输入ap,选择加载md.lsp程序),将md.lsp复制在support文件夹下后可自动加载。
使用方法:
1、新建一個坐標系:工具-新建UCS-三點,確定原點O和XY軸。
2、校准:工具-查詢-點坐標,任點一個點,看其坐標與新建的坐標是否一吻合,如果不合,再重新坐標系。
3、輸入md運行命令,輸入樁數,再輸入樁號,再選擇點,完成後,保存CAD文件。此時,打開D盤你就會看到生成一個文件“樁號坐標值.xls”的Excel文件,打開excel文件,裏面就有剛我們輸入點的坐標值了。
优 点:适用于求多个点。 缺点:该台电脑得安有excel2007,我用wps2012共享版测试过,按有wps的电脑也可以打开生成的“桩号坐标值.xls”的Excel文件, 但打开时会提示错误对话框,也许是在用WPS自动生成“桩号坐标值.xls”时就出现错误的吧。
免責聲明:文中圖文均來自網絡,如有侵權請聯系刪除。
歐普軟件發布此文僅爲傳遞信息,不代表歐普軟件認同其觀點或證實其描述。