在工程測量內業處理中，有時需將橫斷面線資料提取出來，橫斷面線關鍵點是以「偏軸距,高程」二維形式提取，使用時選擇一條橫斷面線（多義線），指定橫斷面的基準點（通常是乙個特別的交叉點及其在橫斷面中的座標，一般選擇斷面軸線與某一已高程的點），程式將把斷面線（多義線）的折點座標逐點計算出對應於橫斷面的平面座標寫入檔案。
(defun c:zzdmx ()
(setvar "cmdecho" 0)
(setq ffn (getfiled "選取檔案" "d:/" "dmx" 1))
(setq ff (open ffn "w"))
(close ff)
(setq seccount 0)
(setq cadpoint (cond ((= cadpoint nil) '(0.0 0.0))
(cadpoint)
)) (setq secpoint (cond ((= secpoint nil) '(0.0 0.0))
(secpoint)
)) (setq cadpoint (cond ((getpoint (strcat "請選取斷面基準點<"
(rtos (car cadpoint) 2 3)
","(rtos (cadr cadpoint) 2 3)
">:"))
)(cadpoint)
)) (setq secpoint (cond ((getpoint (strcat "請輸入斷面基準點斷面座標<"
(rtos (car secpoint) 2 3)
","(rtos (cadr secpoint) 2 3)
">:"))
)(secpoint)
)) ;(setq secpoint (getpoint "請輸入斷面基準點斷面座標："))
(setq dltx (- (car secpoint) (car cadpoint)))
(setq dlty (- (cadr secpoint) (cadr cadpoint)))
(princ "\n順序選取橫斷面線...")
(setq ss (ssget))
(setq i 0)
(setvar "pdmode" 33)
(repeat (sslength ss)
(setq seccount (1+ seccount))
(setq ff (open ffn "a"))
(princ (strcat "第," (itoa seccount) ",根線\n") ff)
(close ff)
(setq ii 1)
;;輸出點號
(setq ssn (ssname ss i))
(setq endata (entget ssn))
(setq n 0)
(repeat (length endata)
(setq pp (nth n endata))
(setq key (car pp))
(if (= key 10)
(progn
(setq x_temp (cadr pp))
(setq y_temp (caddr pp))
(setq x (rtos (+ x_temp dltx) 2 3))
;;把x後小數點變為3位輸出
(setq y (rtos (+ y_temp dlty) 2 3))
;;把y後小數點變為3位輸出
(setq iii (itoa ii))
(setq ff (open ffn "a"))
(princ iii ff)
(princ "," ff)
(princ x ff)
(princ "," ff)
(princ y ff)
;(princ "," ff)
;(princ "0 " ff)
(princ "\n" ff)
(close ff)
(setq ii (1+ ii))
) )
(setq n (1+ n))
)(setq ii ii)
(setq i (1+ i))
) (princ (strcat "\n檔案寫至=> " ffn))
(prin1)
)(princ
"\nqindong [email protected] 2017.3，鍵入 zzdmx 執行本外掛程式"
)
讀《漫畫測量》，知曉工程測量
讀 漫畫測量 知曉工程測量 一前言 二 測量基礎知識 長度 角度 高度 稱為測量三要素，通過待求點與基準點 已知點 的測量三要素，就能得到待求點的位置座標。不管多精確的測量都是會有誤差的，誤差產生的原因有 儀器誤差 環境誤差 個人誤差和錯誤。三 距離測量 距離指兩點之間的直線長度，由於地圖是二維的平...
工程測量的特點
1 歷史悠久的應用學科 2 服務面廣 3 貫穿於工程的全生命週期 施工放樣 setting out 把設計圖紙上工程建築物的平面位置和高程，用一定的測量儀器和方法測設到實地上去的測量工作稱為施工放樣 也稱施工放線 放樣點就是已知的座標點，但是不知道位置，需要用儀器去找到座標的位置所在，這樣的點叫做放...
測量史上首個易語言工程測量模組
測量史上首個易語言工程測量模組，為什麼這麼說的呢，兩個原因，一我想母語的視覺化程式設計軟體值得我們去推廣，二從事測量的工作者都是忙於工作，而且工作大都是體力活，回來還要腦力計算，但是我們會在工作中總結很多快捷的方法。有些循序漸進的工作完全可以用程式幫我們來做，易語言很適合我們這些從事工程測量的工作者...