地物编码与连线.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