1、;一、绘制地形图符号1.点状符号对于点状符号,其位置固定, 数量较多 ,且一般都带有一定的标注, 可逐个制作属性块图元,单独插入。2.线状符号利用 AutoCAD 中强大的线型定义。3.面状符号由充填符号在面域内按一定的排列方式组合而成。目前 Auto CAD 在建筑设计、工程施工放样得到广泛应用, Auto CAD 在工程测量上的应用,大大减少手算坐标的工程量或帮助人们复核手算坐标的准确性。(1)删除未选择对象(defun c:sd()(princ“n 选择要保留对象:“)(setq SS(ssget) ss1(ssget“X“)(command“erase“ss1“r“ss“zoom _e
2、);end;(2)画圆弧型铁路;输入铁路中线上三个点，轨距及绘图比例尺，起、中、始点(defun c:ytl()(setvar “osmode“ 0);取消扑捉(setq PB(getpoint“n 输入起点：“)(setq PM(getpoint“n 输入中点： “)(setq PE(getpoint“n 输入终点：“)(setq WD(getreal“n 输入铁路宽度 (m)：“)(setq S(getreal“n 绘图比例尺 =：“);1:1000,输入 1.0(setq W1(/(* WD S) 2) W2(+ W1(* 0.6 S);轨道及枕木符号的半宽(setq D(distanc
3、e PB PE)(setq A1(angle PB PM) A2(angle PB PE) A3(angle PE PB) A4(angle PE PM)(setq FB(- A1 A2) FE(- A3 A4) P12(* PI 2)(if (:“)(if (= hig nil) (setq hig 0.0)(setq hig (* pi hig) hig (/ hig 180.0)(setq h50 (cons 50 hig)(setq n (sslength s)(setq k 0 )(while (:“)(if (= hig nil) (setq hig 3.0)(setq h40 (cons 40 hig)(setq n (sslength s)(setq k 0 )(while ( k n) (setq name (ssname s k)(setq a (entget name)(setq b (assoc 0 a)(setq b (cdr b)(if (= b “TEXT“)(progn(setq h (assoc 40 a)(setq a (subst h40 h a)(entmod a)(setq k (+ k 1)
