程序法画缓和曲线.docVIP

程序法画缓和曲线 使用方法： 将下面的程序使用txt格式的文本文档保存，另存为“缓和曲线.lsp”文件，保存到cad安装目录下的support文件夹下。然后打开cad，输入appload命令选择缓和曲线文件，加载成功后就可以使用了。程序的调用命令为“HH”，使用的时候需要已知两条切线，并在图中画出，然后输入曲线半径，缓和曲线长，最后为标注内容。 ;;多段线模拟缓和曲线。 ;;输入起止直线、半径、缓和曲线长。 ;;命令：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 (cdr (assoc 10 (entget (car p2)))) pt4 (cdr (assoc 11 (entget (car p2)))) pt20(polar pt3 (angle pt3 pt4) (/ (distance pt3 pt4) 2)) p (+ (- (/ (* Ls Ls) 24 R) (/ (* Ls Ls Ls Ls) 2688 R R R)) (/ (* Ls Ls Ls Ls Ls Ls) 506880 R R R R R)) jd (inters pt1 pt2 pt3 pt4 nil) alf1(angle pt10 jd) alf2(angle pt20 jd) alf (- (angle jd pt20) alf1) );setq (if (or ( alf pi) (and ( alf 0) ( alf (- 0 pi)))) (progn (setq id__ -1) (if ( alf pi) (setq alf (- (+ pi pi) alf)) (setq alf (abs alf))) );progn (progn (setq id__ 1) (if (= alf (- 0 pi)) (setq alf (+ pi pi alf))) );progn );if