南方CASS快捷鍵匯總培訓(xùn)講學(xué)

1、南 方 CASS 快 捷鍵 2附：南方CASS快捷鍵A畫?。ˋRC ）AA給實(shí)體加地物名B 自由連接C畫圓（CIRCLE）COPYCLIP 從不同窗口復(fù)制局部CP拷貝（COPY）D 繪制電力線DD 通用繪圖命令DDPTYPE 改變點(diǎn)形狀E 刪除（ERASE）F 圖形復(fù)制FF 繪制多點(diǎn)房屋G繪制圖程點(diǎn)H線型換向I 繪制道路J復(fù)合線連接K繪制陡坎KK 查詢坎高L畫直線（LINE）LA 設(shè)置圖層（LAYER ）LT 設(shè)置線型（LINETYPE ）M移動(dòng)（MOVE ）N 批量擬合復(fù)合線O 批量修改復(fù)合線高P 屏幕移動(dòng)（PAN）PASTEORIG在不同窗口粘貼PE 復(fù)合線編輯（PEDIT）PL 畫復(fù)合線

2、（PLINE）PLOT打印設(shè)置PURGE清理層Q直角糾正R屏幕重畫（REDRAW）REGEN重新生成RR 符號(hào)重新生成S加入實(shí)體屬性SS 繪制四點(diǎn)房屋T注記文字TR打斷V 查看實(shí)體屬性W繪制圍墻WW 批量改變復(fù)合線寬X多功能復(fù)合線XP 繪制自然斜坡Y 復(fù)合線上加點(diǎn)Z 屏幕縮放（ZOOM ）附：常見的快捷命令（一）字母類1、對象特性ADC, *ADCENTER （設(shè)計(jì)中心Ctrl+ 2” ）CH, MO PROPERTIES（修改特性 Ctrl + 1）MA, *MATCHPROP （屬性匹配）ST, *STYLE （文字樣式）BRCOL, *COLOR （設(shè)置顏色）LA, *LAYER （圖層

3、操作）LT, *LINETYPE （線形）LTS, *LTSCALE （線形比例）LW, *LWEIGHT （線寬）UN, *UNITS （圖形單位）ATT, *ATTDEF （屬性定義）ATE, *ATTEDIT （編輯屬性）BO, BOUNDARY （邊界創(chuàng)建，包括創(chuàng)建閉合多段線和面域）AL, *ALIGN （對齊）EXIT, *QUIT （退出）EXP, EXPORT （輸出其它格式文件）IMP, IMPORT （輸入文件）OP,PR *OPTIONS （自定義 CAD 設(shè)置）PRINT, *PLOT （打?。㏄U, *PURGE（清除垃圾）R, *REDRAW （重新生成）REN, *

4、RENAME （重命名）SN, *SNAP （捕捉柵格）DS, *DSETTINGS （設(shè)置極軸追蹤）OS, *OSNAP （設(shè)置捕捉模式）PRE, *PREVIEW （打印預(yù)覽）TO, *TOOLBAR （工具欄）V, *VIEW （命名視圖）AA, *AREA （面積）DI, *DIST （距離）LI, *LIST （顯示圖形數(shù)據(jù)信息）2、繪圖命令：PO, *POINT （點(diǎn)）L, *LINE （直線）XL, *XLINE （射線）PL, *PLINE （多段線）ML, *MLINE （多線）SPL, *SPLINE （樣條曲線）POL, *POLYGON （正多邊形）REC, *RECT

5、ANGLE （矩形）C, *CIRCLE（圓）*ARC（圓?。〥O, *DONUT （圓環(huán)）EL, *ELLIPSE （橢圓）REG, *REGION （面域）MT, *MTEXT （多行文本）T, *MTEXT （多行文本）*BLOCK （塊定義）I, *INSERT （插入塊）W, *WBLOCK （定義塊文件）DIV, *DIVIDE （等分）H, *BHATCH （填充）3、修改命令：CO, *COPY （復(fù)制）MI, *MIRROR （鏡像）AR, *ARRAY （陣歹 U）O, *OFFSET （偏移）RO, *ROTATE （旋轉(zhuǎn)）M, *MOVE （移動(dòng)）DEL 鍵 *ERAS

6、E （刪除）X, *EXPLODE （分解）TR, *TRIM （修剪）EX, *EXTEND （延伸）S, *STRETCH （拉伸）LEN, LENGTHEN （直線拉長）SC, *SCALE （比例縮放）BR, *BREAK （打斷）CHA, *CHAMFER（倒角）*FILLET （倒圓角）BRAutoCAD 2000快捷命令的使用PE, *PEDIT （多段線編輯）ED, *DDEDIT （修改文本）4、視窗縮放：P, *PAN （平移）Z +空格+空格實(shí)時(shí)縮放Z, *局部放大Z+P, *返回上一視圖Z+E, *顯示全圖5、尺寸標(biāo)注：DLI, *DIMLINEAR （直線標(biāo)注）DAL

7、, *DIMALIGNED （對齊標(biāo)注）DRA, *DIMRADIUS （半徑標(biāo)注）DDI, *DIMDIAMETER （直徑標(biāo)注）DAN, *DIMANGULAR （角度標(biāo)注）DCE, *DIMCENTER （中心標(biāo)注）DOR, *DIMORDINATE （點(diǎn)標(biāo)注）TOL, *TOLERANCE （標(biāo)注形位公差）LE, *QLEADER （快速引出標(biāo)注）DBA, *DIMBASELINE （基線標(biāo)注）DCO, *DIMCONTINUE （連續(xù)標(biāo)注）D, *DIMSTYLE （標(biāo)注樣式）DED, *DIMEDIT （編輯標(biāo)注）DOV, *DIMOVERRIDE（替換標(biāo)注系統(tǒng)變量）（二）常用CT

8、RL快捷鍵CTRL + 1 PROPERTIES（修改特性）CTRL +2 *ADCENTER （設(shè)計(jì)中心）CTRL +O *OPEN （打開文件）CTRL +N、M *NEW （新建文件）CTRL +P *PRINT （打印文件）CTRL +S *SAVE （保存文件）CTRL +Z *UNDO （放棄）CTRL +X *CUTCLIP （剪切）CTRL +C *COPYCLIP （復(fù)制）CTRL + V *PASTECLIP （粘貼）CTRL +B *SNAP （柵格捕捉）CTRL +F *OSNAP （對象捕捉）CTRL +G *GRID （柵格）CTRL +L *ORTHO （正交）C

9、TRL +W * （對象追蹤）CTRL +U * （極軸）三）常用功能鍵F1 *HELP （幫助）【F2】* （文本窗口）【F3】 *OSNAP （對象捕捉）【F7】 *GRIP （柵格）【F8】 *ORTHO （正交）注：修改完ACAD.PGP文件后，不必重新啟動(dòng) AUTOCAD立刻加載剛剛修改過的ACAD.PGP文件的方法。方法：鍵入REINIT命令，鉤選PG巳再確定1、簡碼引導(dǎo)文件中平行體：P,線上點(diǎn)號(hào)，通過點(diǎn)號(hào)因CASS6中可能存在BUG,因此可能要重復(fù)執(zhí)行兩次簡碼引導(dǎo)才能畫出平行實(shí)體2、添加自定義野外操作碼方法先在操作手冊中查出相應(yīng)地貌地物的 CASS內(nèi)碼，再在jcode.def中新

10、添加一行，并輸入相應(yīng)的野外操作碼與對應(yīng)的內(nèi)碼，如：添加了水涯線的野外操作碼為：Q10,181101其中Q10是自定義的野外操作碼，181101是水涯線的CASS內(nèi)碼磚房的野外操作碼：F7,141121野外操作碼由一個(gè)字母加兩位數(shù)字組成，無效的 0可以省略，如F07與F7等價(jià)如果要帶參數(shù)而野外操作碼又不足三位，則操作碼與參數(shù)間需加“-，如F2-2,141121表示房屋參數(shù)的2層，因F2不足三位因此野外操作碼的“F2”與參數(shù)層數(shù)的2問要加-但如果野外操作碼是三位則參數(shù)可直接緊跟野外操作碼如：F022,141121兩種方法效果相同自定義野外操作碼時(shí)請遵循 CASS的約定，即表示線型的用“X” ,擬合

11、線型用Q，坎類用K: 擬合坎類則用U，如：表D-1線面狀地物符號(hào)代碼表坎類（曲）：K（U） +數(shù)（0-陡坎，1-加固陡坎，2-斜坡，3-加固斜坡，4-壟，5-陡崖,6-干溝）線類（曲）：X（Q） +數(shù)（0-實(shí)線，1-內(nèi)部道路，2-小路，3-大車路，4-建筑公路，5-地類界，6-鄉(xiāng).鎮(zhèn)界，7-縣.縣級市界，8-地區(qū).地級市界，9-省界線）垣柵類：W +數(shù)（0,1-寬為0.5米的圍墻，2-柵欄，3-鐵絲網(wǎng)，4-籬笆，5-活樹籬笆，6-不依比例圍墻，不擬合，7-不依比例圍墻，擬合）鐵路類：T +數(shù)（0-標(biāo)準(zhǔn)鐵路（大比例尺），1-標(biāo)（?。?，2-窄軌鐵路（大），3-窄（?。?，4-輕軌鐵路（大），5-輕（

12、?。?，6-纜車道（大），7-纜車道（?。?，8-架空索道，9-過河電纜）電力線類：D +數(shù)（0-電線塔，1-高壓線，2-低壓線，3-通訊線）房屋類：F +數(shù)（0-堅(jiān)固房，1-普通房，2-一般房屋，3-建筑中房，4-破壞房，5- 棚房，6-簡單房）管線類：G +數(shù)（0-架空（大），1-架空（?。?，2-地面上的，3-地下的，4-有管堤的）植被土質(zhì)：擬合邊界：B -數(shù)（0-旱地，1-水稻，2-菜地，3-天然草地，4-有林地，5-行樹，6-狹長灌木林，7-鹽堿地，8-沙地，9-花圃）不擬合邊界：H -數(shù)（0-旱地，1-水稻，2-菜地，3-天然草地，4-有林地，5-行樹，6-狹長灌木林，7-鹽堿地，8-沙

13、地，9-花圃）平行體:P + （X（0-9）, Q（0-9）, K（0-6） , U（0-6）一）控制點(diǎn)：C +數(shù)（0-圖根點(diǎn)，1-埋石圖根點(diǎn)，2-導(dǎo)線點(diǎn)，3-小三角點(diǎn)，4-三角點(diǎn)，5-土堆上的三角點(diǎn)，6-土堆上的小三角點(diǎn)，7-天文點(diǎn)，8-水準(zhǔn)點(diǎn)，9-界址點(diǎn)）點(diǎn)狀地物符號(hào)代碼均以“A”開頭，詳情請參閱“用戶手冊”邛的EASS野外操作碼”部分3、坎類帶有坡毛的圖示坡毛均畫在前進(jìn)方向的左側(cè)，因此在編號(hào)時(shí)請按此確定方向，但對于已編好編號(hào)的可用線型換向命令“ H”隨時(shí)換向4、成圖時(shí)最好用無簡碼坐標(biāo)數(shù)據(jù)文件、簡碼坐標(biāo)數(shù)據(jù)文件、引導(dǎo)碼一起使用，最方便的是使用無簡碼坐標(biāo)數(shù)據(jù)文件+簡碼引導(dǎo)文件方法a.無簡碼坐

14、標(biāo)數(shù)據(jù)文件就是只含有點(diǎn)號(hào)、X、Y、H的簡單坐標(biāo)高程數(shù)據(jù)文件，文件結(jié)構(gòu)如下：點(diǎn)號(hào),Y（E）, X（N） , H在點(diǎn)號(hào)與Y值間必須予留簡碼位置，但可不輸入簡碼b.簡碼引導(dǎo)文件就是通過點(diǎn)號(hào)來定義地物地貌的代碼文件：每一行表示一個(gè)地物；？每一行的第一項(xiàng)為地物的“地物代碼”（即野外操作碼，在jcode.def中定義后即與CASS內(nèi)碼對應(yīng)了，也可理解為 CASS內(nèi)碼的助記碼），以后各數(shù)據(jù)為構(gòu)成該地物的各測點(diǎn)的點(diǎn)號(hào)（依連接順序的排列）；同行的數(shù)據(jù)之間用逗號(hào)分隔；表示地物代碼的字母要大寫；用戶可根據(jù)自己的需要定制野外操作簡碼如（以下以了開頭的為下一行的解釋內(nèi)容，非引導(dǎo)文件內(nèi)容，去掉以“；”開頭的注釋內(nèi)容后為一

15、完整的簡碼引導(dǎo)文件）：;D1定義高壓電線，后續(xù)點(diǎn)依次相連，各點(diǎn)上畫有電桿與表示電力線的雙箭頭D1,H293,H009,HY033,HY001,HY014；D3定義通訊線，后續(xù)點(diǎn)依次相連D3,HY013,HY011,HY004,HY021,HY023,HY031,H003,H008；C0定義不埋石圖根點(diǎn)，不同控制點(diǎn)用 C0、C1等表示，具體請查用戶手冊，C0之后緊接寫入圖中的點(diǎn)名，逗號(hào)之后是該控制點(diǎn)在坐標(biāo)文件中的點(diǎn)號(hào)C0-H6,H6；U0定義加固陡坎，后續(xù)點(diǎn)依次相連，陡坎線擬合，如用“ K0”則不擬合陡坎線U0,H3152,H3149,H3155,H3156,H291,H010,H007,H00

16、6,H005,H004,H002,HY034,H Y032,HY030,HY029,HY028,HY027,HY026,HY025,HY024,HY042,HY022,HY095, HY098,HY002,HY003,HY004,HY005,HY006,HY007,HY008,HY009,HY076,HY01 0,HY012,HY015;Q10是本人在jcode.def中自定義的水涯線的野外操作碼，系統(tǒng)默認(rèn)中無此代碼，對應(yīng)內(nèi)碼為：181101,在jcode.def中新加一行：Q10,181101,保存后重啟CASS即可生效Q10,HY075,HY073,HY072,HY071,HY070,HY

17、068,HY067,HY066,HY065,HY064, HY063,HY062,HY061,HY060,HY059,H139,H140,H141,H142,H143,H144,H145,H1 46,H147,H148,H170,H149,HY056,HY057,H151,H152,H089,H090,H091,H093,H094 ,H095,H096,H097,H212,H213,H214,H232,H233,H289;K5定義陡崖K5,H3162,H3160K5,H3003,H3002;同前Q10,1161,1162,1163,1164,1165,1166,1167;A87,以A”開頭的是

18、點(diǎn)狀地物，此表示紀(jì)念碑，系統(tǒng)中有此代碼A87,1153A87,1043;A42表示獨(dú)立電線桿A42,1148;擬合曲線，此表示公路Q0,1085,1086,1087,1088,1089,1090,1157,1158,1159,1160,C3 Q0,1147,1149,1150,1151;F7表示磚房，后接依序三點(diǎn)或多點(diǎn)，系統(tǒng)中無此代碼，本人自定義， jcode.def中加一行：F7,141121F7,9001,1055,1057;同 C0-H6,H6”C0-C3,C3C0-C4,C4C0-C4_1,C4-1;擬合封閉邊線旱地B0,1154,1155,1156,1157,1090,1089,10

19、88；非擬合封閉邊線旱地H0,1046,1048,1045,1051,1053,1049,1036,1034,1032,1030,1029,1023,1022,1021,102 0,1025,1026,1035,1042,1044；非加固坎K0,1025,1024,1023K0,1026,1028,1029K0,1035,1033,1031,1030K0,1042,1037,1039,1041,1032K0,1044,1040,1038,1034K0,1045,1047,1049；B10表示沙灘區(qū)域，后續(xù)點(diǎn)依次相連并封閉，系統(tǒng)中無此代碼，本人自定義，B表示區(qū)域性地物，邊線封閉并擬合，jcode

20、.def中加一行：B10,186510B10,3327,3323,3322,3321,3320,3319,3226,3318,3317,3316,3227,3315,3334,3333,33 31,3330,3329,33285、不同比例出圖對高程注記的密度有不同要求，如果是針對1:500制作的圖需要在1:2000比例尺下出圖時(shí)，需要抽稀高程注記，此時(shí)可利用展高程點(diǎn)的過濾功能即在展高程點(diǎn)時(shí)提示“注記高程點(diǎn)的距離（米）：”時(shí)輸入規(guī)范要求的高程注記的間距，如在1: 2000比例尺下要求35cm注記一個(gè)高程點(diǎn)，對應(yīng)的距離是 60100米，止匕時(shí)只要輸入這之間的任一個(gè)數(shù)值即可過濾掉小于此距離的高程注記

21、，這只是針對出圖進(jìn)行的展點(diǎn)，要生成 DTM和等高線則可不過濾，在出圖之前，關(guān)閉其它層只打開“ GCD”層并刪除該層上的所有對象，重新按出圖要求展一次高程點(diǎn)并進(jìn)行過濾即可。6、生成引導(dǎo)文件后通過CASS菜單“簡碼引導(dǎo)”先選擇引導(dǎo)文件再選擇坐標(biāo)數(shù)據(jù)文件即可生成所有地物地貌符號(hào)。在 CASS6中，因平行地特符號(hào)可能要連續(xù)執(zhí)行兩次簡碼引導(dǎo)，因此可以將平行地物單獨(dú)生成引導(dǎo)文件。這可能是 CASS6的BUG,也可能是D版CASS才有的現(xiàn)象。AutoCAD大比例尺數(shù)字化制圖系統(tǒng)中植被填充程序的開發(fā)韋廖軍蘭度（南寧市勘測院 廣西南寧530021）【摘 要】 在利用AutoCAD開發(fā)大比例尺數(shù)字化制圖系統(tǒng)時(shí)，會(huì)

22、涉及到如何 開發(fā)植被填充程序的問題，本文介紹了兩種開發(fā)植被填充程序的方法?！娟P(guān)鍵詞】 AutoCAD Vb AutoLisp 植被填充 CreatepolygonRgn PtInRegionh0引言在利用AutoCAD開發(fā)大比例尺數(shù)字化制圖系統(tǒng)時(shí)，植被填充程序的開發(fā)是一個(gè)必不可少的步驟。植被填充程序開發(fā)的難點(diǎn)在于植被填充范圍的不規(guī)則， 如何根據(jù)植被填充的不規(guī)則范圍確定各個(gè)植被符號(hào)的插入位置坐標(biāo)。筆者在開發(fā)實(shí)踐中總結(jié)出兩種行之有效的解決方法：（一）利用Vb和AutoLisp相結(jié)合的方法來實(shí)現(xiàn)植被填充程序的開發(fā)。AutoLisp對AutoCAD圖元的操作和數(shù)據(jù)的提取簡單而直接，而 Vb的Api函數(shù)

23、非常豐富，其中有兩個(gè)函數(shù) CreatePolygonRgn （生成一個(gè)區(qū)域）和 PtInRegionh（判斷點(diǎn)是否在區(qū)域內(nèi)）非常有用，利用它們來編制植被填充程序，可以起到事半功倍的效果；因此可以考慮利用 AutoLisp提取植被填充范圍坐標(biāo)和實(shí)現(xiàn)植 被符號(hào)的插入，而利用Vb的Api函數(shù)根據(jù)植被填充范圍坐標(biāo)計(jì)算各個(gè)植被填 充的插入位置坐標(biāo)。（二）利用AutoLisp編寫實(shí)現(xiàn)判斷點(diǎn)是否在區(qū)域內(nèi)的功能（類似 VB的 PtInRegionh函數(shù)功能），所有數(shù)據(jù)在 AutoLisp程序里面用表來處理，免去生成 臨時(shí)文件。本文主要講述第一種方法，第二種方法只給出判斷點(diǎn)是否在區(qū)域內(nèi)的子函 數(shù)，其余程序?qū)崿F(xiàn)方

24、法與第一種方法類似。1第一種方法（一）實(shí)現(xiàn)的方法及步驟.利用AutoLisp編程實(shí)現(xiàn)：在AutoCAD中繪制或者選取植被填充范圍線， 然后提取范圍線坐標(biāo)，并存入一個(gè)臨時(shí)文本文件。.利用Vb編程實(shí)現(xiàn)：（1）打開上一步驟所生成的文本文件，讀取植被填充邊界坐標(biāo)，并存入一 個(gè)數(shù)組。（2）從邊界坐標(biāo)提取植被填充范圍的坐標(biāo)最大最小值，即確定包含植被填 充不規(guī)則范圍的矩形范圍，根據(jù)規(guī)范要求的間距在矩形范圍內(nèi)內(nèi)插規(guī)則方格網(wǎng) 點(diǎn)（植被符號(hào)插入點(diǎn)）并存入另外一個(gè)數(shù)組 Bo（3）利用CreatePolygonRgn函數(shù)，根據(jù)邊界坐標(biāo)生成一個(gè)區(qū)域 PHRGN。（4）利用PtInRegionh函數(shù)，剔除不在區(qū)域PHRG

25、N內(nèi)的方格網(wǎng)點(diǎn)，剩余 的點(diǎn)即為所求的植被符號(hào)插入點(diǎn)。.利用AutoLisp編程實(shí)現(xiàn)：根據(jù)在上一步驟中求得的植被插入點(diǎn)在 AutoCAD中批量插入植被符號(hào)。（二）具體的編程代碼及注釋以下就是根據(jù)上面的編程思路寫出的的源程序代碼和具體注釋。1.獲取植被填充邊界坐標(biāo)子程序(用 AutoLisp編寫)(DEFUN ZBZB ()(COMMAND CMDECHO 0 )(SETVAR PLINETYPE 1 ) ; PLINE 創(chuàng)建優(yōu)化的多線;；輸入邊界坐標(biāo).(SETQ P NIL)潟存貯邊界范圍坐標(biāo)的表.(PROMPT n植被填充：nt輸入點(diǎn)：)(SETQ P1 (GETPOINT)(COMMAND

26、PLINE)(COMMAND P1 )(SETQ P (APPEND (LIST P1) P)(WHILE(SETQ P2 (GETPOINT P1 n 輸入點(diǎn)： )(SETQ P (APPEND (LIST P2) P)(COMMAND P2)(SETQ P1 P2)(COMMAND C)；邊界坐標(biāo)寫入文件.(SETQ FIL (OPEN C: /ZBHZ.TMP W) 潟邊界坐標(biāo)寫入文件 C:/ZBHZ.TMP(SETQ N ( LENGTH P) (SETQ I 0)(REPEAT N(SETQ Y (RTOS (CAR (NTH I P) ) 2 3)(SETQ X (RTOS (CA

27、DR (NTH I P) ) 2 3)(PRINC X FIL)(PRINC n FIL)(PRINC Y FIL)(PRINC n FIL)(SETQ I (1+ I)(CLOSE FIL)(PRINC)2.計(jì)算植被符號(hào)插入點(diǎn)坐標(biāo)子程序(用 Vb編寫)Private PP () As POINTAPIPrivate Xmin0, Xmax0, Ymin0 , Ymax0 As DoublePrivate L As Double”方格邊長Private p () As POINTAPI 方格網(wǎng)點(diǎn)坐標(biāo)Private ZBJJ As VariantPrivate Declare Function

28、PtInRegion Lib gdi32 (ByVal hRgn As Long ,ByVal x As Long , ByVal y As Long ) As LongPrivate Declare Function CreatePolygonRgn Lib gdi32 (lpPoint AsPOINTAPI , ByVal nCount As Long , ByValPolyFillMode As Long ) As LongPrivate Declare Function DeleteObject Lib gdi32 (ByVal hObject As Long)As LongPriva

29、te PHRGN As LongPrivate PtInRgn As Long Private Type POINTAPIx As Longy As Long End Type Private ltscale As VariantSub Main ()Dim nwith As Integer, nheight As IntegerDim n As Integer, I As Integer”打開C: ZBHZ.TMP讀取邊界坐標(biāo).Open C: ZBHZ.TMP For Input As #1 n = 0Do While Not EOF (1)Input #1, xInput #1, y n

30、= n + 1 Loop Close #1ReDim PP (0 To n - 1) As POINTAPIOpen C: ZBHZ.TMP For Input As #1 n = 0Do While Not EOF (1)Input #1, PP (n) .xInput #1, PP (n) .y n = n + 1 Loop Close #1On Error Resume Next”“求包含植被邊界范圍的最小矩形 x, y坐標(biāo)Xmin0 = PP (0) .x： Ymin0 = PP (0) .yXmax0 = XminO : YmaxO = YminOFor I = 0 To n - 1

31、If PP (I) .x = Xmax0 ThenXmax0 = PP .xEnd IfIf PP (I) .y = Ymax0 ThenYmax0 = PP .yEnd IfNext I”生成區(qū)域PHRGNPHRGN = CreatePolygonRgn (PP (0) , n, 1)Call FGW”調(diào)用內(nèi)插方格網(wǎng)點(diǎn)子程序End Sub內(nèi)插方格網(wǎng)點(diǎn)子程序Sub FGW ()Dim PPP (2) As DoubleDim I , J As IntegerDim Xmin , Xmax, Ymin , Ymax As DoubleDim FIL As String叫青除C: ZBHZ.TMP

32、文件數(shù)據(jù)Open C: ZBHZ.TMP For Append As #1CLOSE #1Open C: ZBHZ.TMP For Append As #1L = 10 ”設(shè)置植被填充間距”剔除植被填充區(qū)域外的方格網(wǎng)點(diǎn).nheight = Int ( (Ymax0 - Ymin0 ) / L) + 3nwith = Int ( (Xmax0 - Xmin0 ) / L) + 3ReDim p (0 To nwith -1, 0 To nheight - 1) As POINTAPIFor I = 0 To nwith - 2 Step 2For J = 0 To nheight - 2 Ste

33、p 2p (I,J).x =(Int (Xmin0 / L)* L)+ I * Lp (I,J).y =(Int (Ymin0 / L)* L)+ J * LPtInRgn = PtInRegion (PHRGN, p (I, J) .x, p (I, J) .y)If PtInRgn 0 ThenPrint #1, p (I, J) .xPrint #1, p (I, J) .yEnd Ifp (I + 1, J) .x = (Int (Xmin0 / L) * L) + (I + 1) * Lp (I + 1, J) .y = (Int (Ymin0 / L) * L) + (J + 1)

34、 * LPtInRgn = PtInRegion (PHRGN, p (I + 1, J) .x, p (I + 1, J) .y)If PtInRgn 0 Then皿把植被填充范圍內(nèi)的方格網(wǎng)點(diǎn) X, Y坐標(biāo)數(shù)據(jù)寫入C: ZBHZ.TMPPrint #1, p (I + 1, J) .xPrint #1, p (I + 1, J) .yEnd IfNext JNext IDeleteObject PHRGN”刪除區(qū)域Close #1End Sub注：該子程序修改調(diào)試完畢之后需編譯成可執(zhí)行文件ZBHZ.EXE放在C盤根目錄下3.插入植被符號(hào)子程序(用AutoLisp編寫)(DEFUN ZBCR

35、()(SETQ OLDOSMODE (GETVAR OSMODE)(COMMAND OSMODE 0 )(COMMAND LINETYPE S CONTINUOUS);讀入植被符號(hào)插入位置坐標(biāo)數(shù)據(jù)(SETQ FIL (OPEN C: /ZBHZ.TMP R)(WHILE (SETQ X (READ-LINE FIL )(IF (/= X NIL)(SETQ X (ATOF X)(SETQ Y (READ-LINE FIL )(IF (/= Y NIL )(SETQ Y (ATOF Y)(SETQ P (LIST Y X )(IF (/= P NIL);插入植被符號(hào)，其中GS9410是已經(jīng)定義的

36、植被形符號(hào)名稱，實(shí)際工作 根據(jù)所需填充潟符號(hào)不同更改其名稱即可，縮放比例也是根據(jù)實(shí)際繪圖比例設(shè)定。(COMMAND SHAPE GS9410P0.50)(CLOSE FIL)(vl-file-delete C : /ZBHZ.TMP);刪除臨時(shí)文件 C: ZBHZ.TMP(COMMAND OSMODE OLDOSMODE )(PRINC)4.主程序(用AutoLisp編寫)(DEFUN C: ZBHZ ()(ZBZB);調(diào)用獲取植被邊界坐標(biāo)子程序(STARTAPP C: /ZBHZ.EXE ZBHZ)調(diào)用計(jì)算植被符號(hào)插入點(diǎn)坐標(biāo) 子程序(ZBCR)潟調(diào)用插入植被符號(hào)子程序)2第二種方法判斷點(diǎn)是否

37、在多邊形區(qū)域內(nèi)子函數(shù)如下：;PTREGION ()子函數(shù) 判斷點(diǎn)是否在多邊形區(qū)域內(nèi)；需要參數(shù) 點(diǎn)：PT (X Y H)或者(X Y)多邊形頂點(diǎn)坐標(biāo)：PL ( (X0Y0)(X1 Y1).)；返回值數(shù)據(jù)格式-區(qū)域內(nèi)：IN區(qū)域外：OUT；(defun PTINREGION (PT PL/)(setq PT (list (nth 0 PT)(nth 1 PT)(SETQ PL-NUM (LENGTH PL)(SETQ PL-PT NIL)(SETQ III 0)(REPEAT PL-NUM(SETQ PL-PT-JD (angle PT (NTH III PL )(if (= PL-PT nil)(setq PL-PT (LIST PL-PT-JD)(SETQ PL-PT (APPEND (LIST PL-PT-JD) PL-PT)(SETQ III (1+ III)(SETQ JDHE 0)(SETQ INSIDE OUT)(SETQ III 0)(REPEAT PL-NUM(IF (/= III (- PL-NUM 1 ) (PROGN(SETQ JD (- (NT