地物編碼與連線ppt課件(編輯修改稿)
2024-11-30 19:15 本頁面
【文章內(nèi)容簡介】 m (setq s (readline F1)) ；按行從文件一讀入 ；以下將讀入字符串拆分為點號 、 三維坐標(biāo) 、 代碼 ， 分行寫入文件二 ，轉(zhuǎn)換數(shù)據(jù)類型 (setq n (atoi (substr s 17 4))) (princ n F2) (princ \n F2) ；寫入點號 (setq x (atof (substr s 37 10))) (princ x F2) (princ \n F2)；寫入橫坐標(biāo) (setq y (atof (substr s 21 10))) (princ y F2) (princ \n F2)；寫入縱坐標(biāo) (setq h (atof (substr s 53 10))) (princ h F2) (princ \n F2) ；寫入高程 (setq cd (substr s 69 6)) (princ cd F2) (princ \n F2) ；寫入代碼 ) (close File1) (close File2) (princ) ) 六、地形點展繪和初步連線 地形點數(shù)是大量的，例如一幅 1:500的地形圖一般約有 1000點。 AutoCAD繪圖時，每點按其屬性依照地形圖圖式的分類編號分層展點、初步連線和注記。這一工作可編制下列 “ 按地形點點號坐標(biāo)代碼展點及連線程序 ” 來完成： ； 《 按地形點坐標(biāo)代碼數(shù)據(jù)文件畫地形圖初級圖形 》 ； (地形點按前三位代碼入層畫點 ,注記點號及高程 ,初步連線 ,可封閉所畫圖形 ) ； TOPOLINE (Topographic Points amp。 Lines Drawing) (defun c:topoline() (setq file (getstring \n 輸入點位數(shù)據(jù)文件名 (*.txt): )) (setq f (open file r)) ；打開文件 ， 準(zhǔn)備讀取數(shù)據(jù) (setq m (getint 輸入地形點數(shù) = )) (mand style standard 宋體 n n a c ) ；字體 (setq spl nil) ；放置樣條曲線的 點表 SPL初始化 (repeat m ；按點號依次讀入 ， 依代碼分層展點 ， 注記點號高程 ， 地物初步連線 (setq pn (readline f)) ； pn為點號代碼 (字符串 ) (setq x (read (readline f))) ； x,y,h為三維坐標(biāo)值 (實數(shù)) (setq y (read (readline f))) (setq h (read (readline f)) h (rtos h 2 2)) ；點的高程取 2位小數(shù)注記 (setq CD (readline f)) ； CD為地形點代碼 (字符串 ) (setq x1 ( x ) y1 ( y ) x2 (+ x ) y2 ( y )) (setq pt (list x y ) pt1 (list x1 y1) pt2 (list x2 y2)) ； pt為地形點位置 ， pt1 為注記點號的起始位置 ， pt2 為注記高程的起始位置 (mand layer make Pn c white ) (mand text pt1 0 pn ) ；用白色注點號 , 成圖后可關(guān)閉此層 (mand layer make 1021 c green ) (mand text pt2 1 0 h ) ；用綠色注記點的高程 , 成圖后可選擇保留 (mand zoom e ) (setq lay (substr CD 1 3)) ；代碼前 3位為層名 (圖式編號 ) (setq BMEC (substr CD 4 1)) ； 代 碼 第 4 位為 Begin,Middle,End,Close (setq lx (substr CD 5 1)) ；代碼第 5位為連線信息： 1直線 ,2圓弧,3樣條 (mand layer make lay c white ) ；按地形點分類建層 ,展點 (if (= lay 411) (mand layer c magenta lay )) ；品紅畫房屋 (if (= lay 443) (mand layer c red lay )) ；大紅畫圍墻 (if (= lay 644) (mand layer c yellow lay ))；黃畫內(nèi)部道路 (if (or (= lay 811) (= lay 824)) (mand layer c cyan lay )) ； 青色畫河流和水塘 ； 以上四種主要地物分層設(shè)色 ， 使圖形編輯時易于區(qū)分 (mand point pt ) ； 按點的平面坐標(biāo)展點 ； 以下畫直線段或閉合多邊形 (if (and (= lx 1) (= BMEC B)) (setq p1 pt P0 pt)) (if (and (= lx 1) (= BMEC M)) (progn (setq p2 pt) (mand line p1 p2 ) (setq p1 p2))) (if (and (= lx 1) (= BMEC E)) (progn (setq p2 pt p4 pt) (setq spl (cons pt spl) n 1) ； 使可接續(xù)畫直
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1