AutoLISP编程在放线中应用.docVIP

AutoLISP编程在放线中应用 　　【摘要】 本文主要介绍了AutoLISP语言在放线中的应用。放线有着大量而繁琐的内业计算，用AutoLISP编程能准确的得到所要结果，并且借组CAD平台绘成数字图形，使结果更加形象直观。 　　【关键词】 工程放线 AutoCAD AutoLISP 　　中图分类号： R379.1文献标识码：A 文章编号： 　　测设工作中的内业计算主要是根据点的坐标反算角度和距离。利用CAD图数对等的功能在设定的坐标系下, 直接量取相应点的坐标、距离、角度等数据,既能保证作业精度, 又使操作方便易行。 　　一、CAD在主线测设中的应用 　　如图1所示，已知点Z1、Z2、Z3、Z4、Z5、Z6各点的坐标。在CAD进行了初步的设置之后，将Z1、Z2、Z3、Z4、Z5、Z6各点的坐标输入CAD后依次连接。在现场定一通视性良好的点A、B，准确测出其坐标作为极坐标放样的置镜点和后视点，并将A、B点的坐标输入CAD里，连接AB。在测量现场，将全站仪置于A点，对中整平后后视B点，将角度示数调为0゜0’00”。当放Z1点时，使用角度标注命令标注直线AB和AZ1的夹角得到转角α1，在输入“di”命令拾取A点和Z1点，得到直线AZ1的长度。根据在图上得出的数据即可在现场准确放出Z1点。Z2、Z3、Z4、Z5、Z6各点按照上述步骤即可依次放出。 　　 　　 　　图 1 　　二、CAD在曲线测设中的应用 　　曲线（圆曲线、缓和曲线等）极坐标测设同样需要的是距离和转角。但不同的在于CAD不能直接绘出所要的曲线。利用AutoLISP语言编程。程序直接计算出曲线上每隔一段距离的点，在由多线连接各点。这里所说的“每隔一段距离”是指曲线放样中点与点的间隔距离。这种方法同样能准确的得到待放点的放样资料。曲线桥的桥墩坐标不是曲线上的点，存在桥墩偏距，用此法也能顺利得到所要资料。 　　(defun c:qx () 　　(prompt 沿逆时针方向依次选取曲线两端切线上的各两个点) 　　(setq pt1 (getpoint \n 起点端切线上第一点：)) 　　(setq pt2 (getpoint \n 起点端切线上第二点：)) 　　(setq pt3 (getpoint \n 终点端切线上第一点：)) 　　(setq pt4 (getpoint \n 终点端切线上第二点：)) 　　(qxys) ;调用曲线要素计算子程序 　　(setq jd (inters pt1 pt2 pt3 pt4 nil));找到切线的交点 　　(setq pzh (polar jd (+(angle pt2 pt1) pi) q));找到zh点的坐标 　　(setq zh pzh) 　　(setq phz (polar jd (+ alf2 pi) q)) ;找到hz点的坐标 　　(setq hz phz) 　　(command layer set 0 ) 　　(command line jd pzh line jd phz );绘制曲线的两条切线 　　(command layer m qx color 1 new qx ) 　　(zh_hy) ;调用绘制直缓点至缓圆点段缓和曲线子程序 　　(yh_hz) ;调用绘制缓直点至圆缓点段缓和曲线子程序 　　(yqx) ;调用绘制圆曲线子程序 　　(command layer set 0 )) 　　;曲线要素计算子程序 　　(defun qxys() 　　(setq alf1 (angle pt1 pt2)) 　　(setq alf2 (angle pt3 pt4)) 　　(setq alf (- alf2 alf1)) 　　(if ( alf 0) 　　(setq alf (+ alf (* 2 pi)))) 　　(setq a (* alf 0.5)) 　　(setq tga (/ (sin a) (cos a))) 　　(setq tgaf (/ (sin alf) (cos alf))) 　　(setq R (getreal \n 输入圆曲线半径R: )) 　　(setq l0 (getreal \n 输入缓和曲线长l0: )) 　　(setq m (- (/ l0 2.0) (/ (expt l0 3) (* 240.0 (expt R 2))))) 　　(setq p (- (/ (expt l0 2) (* 24.0 R)) (/ (expt l0 4) (* 2688.0 (expt R 3))))) 　　(setq tana (/ (sin a) (cos a))) 　　(setq q (+ m (* (+ R