如何让图形缩小
本帖最后由 gprspda 于 2011-10-21 21:12 编辑我要在已经画好的图纸上，通过程序添加另外一个图，但是添加的这个图，运行出来之后，和原图相比，太大了，比例很不合适，有没有一个程序，可以将我添加的图，设置的和原图的比例相当。参数后面的数字是我试验的时候输入的。
(defun c:flx(/ p p0 p1 p2 p3 p4 p5 p6 v c h w r1 r2 b1 b2 b3 α e t1)
(setq v (getint"\n输入指示空速"));;250
(setq c (getint"\n输入与ISA的差值"));;15
(setq h (getint"\n输入高度（米）"));;3000
(setq w (getint"\n输入风速"));;50
(setq p (getpoint"\n确定起始点"));;可以随意画一条线，任取一个端点
(setq α(getangle"\n输入转弯坡度角"));;5
(setq t1 (/(* v 171233 (expt(-(+ 288 c) (* 0.006496 h))0.5)) (expt(- 288 (* 0.006496 h))2.628)))
(setq r2 (/(* 3431 (/(sin(* (/ α 180) pi))(cos(/(/ α 180) pi)))) (* pi v)))
(if (> r2 3)(setq r2 3))
(setq r1 (/ v (* 20 pi r2)))
(setq p0 (polar p 0 r1))
(setq e (/ w (* 40 r2)))
(setq p1 (polar p0 (/ pi 2) e))
(setq p2 (polar p0 0 e))
(setq p3 (polar p0 (/ (- pi) 2) e))
(setq b1 (expt(+(* r1 r1)(* e e)) 0.5))
(setq b2 (+ r1 e))
(setq b3 (+ r1 (* 2 e)))
(setq p4 (polar p1 (/ pi 2) b1))
(setq p5 (polar p2 0 b2))
(setq p6 (polar p3 (/ (- pi) 2) b3))
(command "arc" "c" p0 p4 p)
(command "arc" "c" p0 p5 p4)
(command "arc" "c" p0 p6 p5)
(setq fn(open (getfiled "将文件保存为：" "gc.txt" "txt" 1) "w"))
(write-line (strcat "t1=" (rtos t1)) fn)
(write-line (strcat "r2=" (rtos r2)) fn)
(write-line (strcat "r1=" (rtos r1)) fn)
(write-line (strcat "b1=" (rtos b1)) fn)
(write-line (strcat "b2=" (rtos b2)) fn)
(write-line (strcat "b3=" (rtos b3)) fn)
(close fn)
(command "_zoom" "ALL")
(princ)
)
页:
[1]