中线里程注记lisp.doc

; 使用前，请确认绘图环境的角度单位为十进制度。输入遇空中止;注记在“中线注记”图层上，没有此层则自动创建(命令为“zj”) (defun zuojiao(fw1 fw2 / jiao1); 左角计算模块,输入/输出为弧度单位 (setq jiao1 (- (+ fw1 pi) fw2)) (if( jiao1 (* 2 pi)); if-2 (setq jiao1 (- jiao1 (* 2 pi))) (if( jiao1 0); if-1 (setq jiao1 (+ jiao1 (* 2 pi))) ); if-1 ); if-2 (* jiao1 1) );zuojiao子程序结束 (defun zhuji(i pzj1 pzj2 pzj3 zhuanghao licheng zuoj / x0 y0 z0 x1 y1 z1 x2 y2 z2 ang0 ang1 xd yd xd1 yd1 p11 p22 p33 p44 p55 p66 zuo1 m1 m2 m3) ;i=0 注记始末点 ;i=1 注记其它点 ;pzj1:第一点；pzj2：第二点； pzj3：方向点； zhuanghao：整数；licheng：实数(m)； zuoj：弧度； ; 提取第一点、二点、方向点坐标 (setvar osmode 13) (setq x0 (nth 0 pzj1)) (setq y0 (nth 1 pzj1)) (setq z0 (nth 2 pzj1)) (setq x1 (nth 0 pzj2)) (setq y1 (nth 1 pzj2)) (setq z1 (nth 2 pzj2)) (setq x2 (nth 0 pzj3)) (setq y2 (nth 1 pzj3)) (setq z2 (nth 2 pzj3)) (setq ang0 (angle pzj2 pzj3)) ; 提取注记方向弧度值 ; 注记方位计算 (if ( x2 x1) (setq ang1 (/ (* ang0 180) pi)) (setq ang1 (+ (/ (* ang0 180) pi) 180)) ) ; 注记线端点坐标xd,yd (if ( x2 x1) (progn (setq xd x1) (setq yd y1) ) (progn (setq xd (+ (* 50 (cos pi)) x1)) (setq yd (+ (* 50 (sin pi)) y1)) ) );endif ; 注记统一基点坐标计算（沿注记线方向偏移10个单位） ;(setq xd1 (+ (* 10 (cos (/ (* ang1 pi) 180))) xd)) ;(setq yd1 (+ (* 10 (sin (/ (* ang1 pi) 180))) yd)) (setq xd1 (+ (* 10 (cos 0)) xd)) (setq yd1 (+ (* 10 (sin 0)) yd)) ; 注记起点坐标计算（沿注记线垂直方向的偏移） (setq p11 (list xd1 (+ (* 45 1) yd1))) (setq p22 (list xd1 (+ (* 37 1) yd1))) (setq p33 (list xd1 (+ (* 29 1) yd1))) (setq p44 (list xd1 (+ (* 21 1) yd1))) (setq p55 (list xd1 (+ (* 13 1) yd1))) (setq p66 (list xd1 (+ (* 5 1) yd1))) ; 画注记引出线 ;(command line pzj1 pzj2 nil) (if (= x1 x2) (command line (list x1 y1) (list (+ (* 50 (cos 0)) x1) (+ (* 50 (sin 0)) y1)) nil) (command line (list x1 y1) (list (+ (* 50 (cos pi)) x1) (+ (* 50 (sin pi)) y1)) nil) ) ; (command line (list x1 y1) (list (