相贯线程序,求版主优化一下

yangist

参考程序在这里,动画在下面噢~
(defun c:xg (/ x y b r1 r2 pt  p1 p2 os CMD)
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)
  (SETQ CMD (GETVAR "cmdecho"))
  (setq r1 (/(getdist "\n输入较粗直径：")2))
  (setq r2 (/(getdist "\n输入较细直径：")2))
  (setq b 0)

  (setq pt (getpoint"\n指定基点："))
  (SETVAR "cmdecho" 0)
  (setq xq (car pt))
  (setq yq (cadr pt))
(while (< b pi)
    (setq x (sqrt (- (* r1 r1) (* (* r2 (sin b)) (* r2 (sin b))))))
    (setq y (* r2 (cos b)))
    (setq p1 (list (- x (- r1 xq)) (- y (- r2 yq))))
    (setq b (+ b (/ pi 182)))
    (setq x (sqrt (- (* r1 r1) (* (* r2 (sin b)) (* r2 (sin b))))))
    (setq y (* r2 (cos b)))
    (setq p2 (list (- x (- r1 xq)) (- y (- r2 yq))))

    (command "line" p1 p2  "")

)
  (setvar "osmode" os)
  (SETVAR "cmdecho" CMD)
  (princ)
)