地物编码与连线 一`地形点编码.pptVIP

(if (and (= lx 1) (= BMEC B)) (setq p1 pt P0 pt)) (if (and (= lx 1) (= BMEC M)) (progn (setq p2 pt) (command 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) ； 使可接续画直线、圆弧或样条等 (command line p1 p2 ) (setq p1 p2))) (if (and (= lx 1) (= BMEC C)) (progn (setq p2 pt) (command line p1 p2 p0 ))) ； C 可使多边形封闭 ； 以下画圆弧段或全圆周 (if (and (= lx 2) (= BMEC B)) (setq p4 pt p0 pt)) (if (and (= lx 2) (= BMEC M)) (setq p5 pt)) (if (and (= lx 2) (= BMEC E)) (progn (setq p6 pt) (setq spl (cons pt spl) n 1) ； 使可接续画圆弧、直线样条等 (command arc p4 p5 p6 ) (setq p1 pt p4 pt))) (if (and (= lx 2) (= BMEC C)) (progn (setq p6 pt) (command circle 3p p4 p5 p6 ))) ；C 可画全圆周 ；以下画样条曲线（开放或闭合曲线） ；可画3点以上任意点数的样条曲线,代码为B3、M3、M3、…E3,构成点表spl (if (and (= lx 3) (= BMEC B)) (setq spl (cons pt spl) n 1)) (if (and (= lx 3) (= BMEC M)) (setq spl (cons pt spl) n (1+ n))) (if (and (= lx 3) (or (= BMEC E) (= BMEC C))) (progn (setq spl (cons pt spl) n (1+ n)) (setq pti (nth (1- n) spl) n (1- n)) (command spline pti) ；用spline命令画样条曲线 (while (= n 1) (setq pti (nth (1- n) spl) n (1- n)) ；依次从点表中取出各点 (command pti) ；按点连接样条曲线 ) ; end-while (if (= BMEC E) (progn (command ) (setq spl nil) ；画完一条开放式样条曲线，使点表初始化 (setq p1 pt p4 pt))) ；使可接续画直线或圆弧 ；如果样条曲线闭合，则代码为B3、M3、M3、…C3，构成点表spl (if (= BMEC C) (progn (command c ) (command ) (setq spl nil))) ；画完一条封闭式样条曲线，使点表初始化 )) ；end-if ) ；end-repeat (close f) (princ) ) ；end program 图8-30的地形测量草图的观测数据，经过用“数据转换程序”和“按地形点点号坐标代码展点和连线程序” 所得地形图初级图形显示如图8-37所示。地形点左边为点的顺序编号，右边为点高程。地形图图形经过编辑后，可以关闭点号层；不必要的高程注记可以消去。 七、地形图图式符号库 数字测图软件的地形图图式符号库, 是以国家标准《图式》为依据的图形数据库。库的功能首先是各种地