浩辰暖通4-Int4的lisp程序3

crtrccrt

(defun C:lqt (/ pt0 pt1 pt2 pt3 pt4  a0 a1 b0 r n m sblip scmde delta delta1
      theta rr px x0 y0 pta delta0)
  (setq sblip (getvar "blipmode"))
  (setq scmde (getvar "cmdecho"))
  (command "layer" "m" "0" "")
  (command "color" "white")
  (setvar "cmdecho" 0)
  (setvar "blipmode" 0)
  (setq m 1)
  (while (= m 1)
  (if (NULL (setq n (getint"\n请输入冷却塔支架数<回车结束>: ")))
    (setq m 0)
  (if (setq pt0 (getpoint"\n请确定冷却塔的中心位置<回车重定支架数>: "))  (progn
  (setq x0 (nth 0 pt0))  
  (setq y0 (nth 1 pt0))
  (setq rr (getstring"\n动态D/回车输尺寸:"))
  (if (or (= rr "D") (= rr "d"))
  (progn
  (command "circle" pt0 pause)
  (setq r (cdr (assoc 40 (entget(entlast)))))
  (setq a0 (* 1.1 r))
  (setq a1 (* 0.1 r))
  (setq delta0 0.1)
  (setq delta1 (/ pi 3.0))
  (setq l (* 0.95 r))
  (setq b0 (* 2 (* l (sin 0.1))))
  (setq delta (/ (* 2 pi) n))
  (setq theta delta1)
  (while (>= n 1)
    (setq pta (list (+ x0 (* a0 (cos theta))) (+ y0 (* a0 (sin theta)))))
    (setq pt1 (list (+ x0 (* l (cos (+ theta delta0)))) (+ y0 (* l (sin (+ theta delta0))))))
    (setq pt2 (polar pt1 theta a1))
    (setq pt3 (polar pt2 (- theta (/ pi 2)) b0))
    (setq pt4 (polar pt3 (- theta pi) a1))
    (command "line" pt0 pta "" "line" pt1 pt2 pt3 pt4 "C")
    (setq theta (+ theta delta))
    (setq n (- n 1))
  )
    )
  (progn
  (initget 7)
  (setq rx (getreal"\n输入冷却塔半径(m):"))
  (setq r (* rx 1000))
  (command "circle" pt0 r)
  (setq a0 (* 1.1 r))
  (setq a1 (* 0.1 r))
  (setq delta0 0.1)
  (setq delta1 (/ pi 3.0))
  (setq l (* 0.95 r))
  (setq b0 (* 2 (* l (sin 0.1))))
  (setq delta (/ (* 2 pi) n))
  (setq theta delta1)
  (while (>= n 1)
    (setq pta (list (+ x0 (* a0 (cos theta))) (+ y0 (* a0 (sin theta)))))
    (setq pt1 (list (+ x0 (* l (cos (+ theta delta0)))) (+ y0 (* l (sin (+ theta delta0))))))
    (setq pt2 (polar pt1 theta a1))
    (setq pt3 (polar pt2 (- theta (/ pi 2)) b0))
    (setq pt4 (polar pt3 (- theta pi) a1))
    (command "line" pt0 pta "" "line" pt1 pt2 pt3 pt4 "C")
    (setq theta (+ theta delta))
    (setq n (- n 1))
  )
  ))))))
  (setvar "blipmode" sblip)
  (setvar "cmdecho" scmde)
  (princ)
)
(princ "已加载")