如何在atuoCAD里画缓和曲线(原代码).docVIP

第五节　水准测量的内业 §2-5 水准测量的内业一、符合水准路线的闭合差的计算与调整二、闭合水准路线闭合差的计算与调整三、支水准路线闭合差的计算与调整 §2-5 水准测量的内业一、符合水准路线的闭合差的计算与调整如图为一符合水准路线：A、B为已知水准点，HA =56.345m ， HB =59.039m点1、2、3 为待测水准点，各测段高差hi、测站数ni、距离Li见下图： 　　　　　　　　　　　　　　　　　 　　　　　　　　　　　　　　　　　 1、计算闭合差： 　　2、检核： （图2-5-40.2） 　　　　 故其精度符合要求。 3、计算改正数分配原则：按与测段距离（或测站数）成正比，并反其符号改正到各相应的高差上，得改正后高差。按距离： 　　 按测站数：　以第1测段为例，测段改正数为：　　检核：　 4、计算改正后高差　　　　检核：　以第1测段为例，改正后的高差为：　　　　检核：　 5、计算高程　　　　如： 　 检核： 　 否则说明高程计算有误。 二、闭合水准路线高差闭合差的计算与调整1、计算闭合差： 　 2、检核： 　　 3、计算高差改正数： 　　　　4、计算改正后高差：5、计算各测点高程：闭合水准路线的计算与附合水准路线基本相同。 三、支水准路线闭合差的计算与调整1、计算闭合差：　　　　　　　　　　　 2、检核：　　　　　　，故精度符合要求。3、计算高差（取往、返测绝对值的平均值，其符号与往测相同）　　　 4、计算高程H1=186.785－1.386=185.399m 一、建立系统*.lsp文件。（将空格下所有文本复制到记事本中，把文件后缀“txt”改成“lsp”即可）。二、在CAD中画出切线长三、运行程序： 在命令行中输入hh回车四、选择两条切线，然后输入曲线半径如：2204.5回车五、输入缓和曲线长，如270，绘图完成！如图 ;;多义线摹拟缓和曲线。;;输入起止直线、半径、缓和曲线长或设计车速。;;命令：HH(defun com_p() ??(setq l?? 0)??(command ucs o (list (- 0 x1) 0 0))??(command pline (list 0 0 0) w 0 ????(repeat 1000??????(setq l (+ l (/ Ls 1000))????????????x (+ (- l (/ (* l l l l l) 40 C C)) (/ (* l l l l l l l l l) 3456 C C C C))????????????y (* id__ (+ (- (/ (* l l l) 6 C) (/ (* l l l l l l l) 336 C C C)) (/ (* l l l l l l l l l l l) 42240 C C C C C)))??????);setq??????(command (list x y 0))????);repaet??);command ??(setq pt5 (trans (list x y 0) 1 0)) );com_p(defun ll_v()??(setq V?? (getreal \nGive Velocity:)????????Ls1 (* V 0.85)????????Ls2 (/ (* 0.0357 V V V) R)????????Ls??(max Ls1 Ls2 (/ R 9))????????Ls??(* (fix (/ Ls 10)) 10.0)??);setq??(if ( Ls R) (setq Ls R))??(ll_d));ll_v(defun ll_d() ??(setq os (getvar osmode))??(setvar osmode 0) ??(setq C?? (* Ls R)????????q?? (- (+ (- (/ Ls 2) (/ (* Ls Ls Ls) 240 R R)) (/ (* Ls Ls Ls Ls Ls) 34560 R R R R)) (/ (* Ls Ls Ls Ls Ls Ls Ls) 8386560 R R R R R R))????????pt1 (cdr (assoc 10 (entget (car p1))))????????pt2 (cdr (assoc 11 (entget (car p1))))????????pt10(polar pt1 (angle pt1 pt2) (/ (distance pt1 pt2) 2))????????pt3