[LISP程序]：利用LISP完成参数化绘图

linhui12

                               
登录/注册后可看大图

如图所示:
由用户输入点A,B,C,D的坐标和D,R,N值LISP即可绘出该图,小弟不才,只完成拐角部分,不知下面怎么写了,请大家各抒己见,帮帮小弟.[IMG]
拐角部分程序如下:
(defun C:wt (/ PT1 PT2 PT3 PT4 A B D R V X1 X2 Y1 Y2 N X3 Y3 X4 Y4 TT Y
      C1 C2 XC1 XC2 YC1 YC2)
  (setvar "osmode" 0)   ;关闭对象捕捉
  (setq D (getreal "\n输入M值:"))
  (setq R (getreal "\n输入R值:"))
  (setq V (getreal "\n输入α角:"))
  (setq N (getreal "\n输入N值:"))
  (setq X1 5)
  (setq Y1 (- 0 5))
  (setq pt1 (list X1 Y1))
  (setq pt2 (list Y1 X1))
  (setq A (- R (/ D 2)))
  (setq B (+ R (/ D 2)))
  (setq Y (* (/ (/ V (* (- N 1) 2)) 180) PI))
  (setq X1 A)
  (setq X2 B)
  (setq Y1 0)
  (setq Y2 0)
  (setq PT1 (list X1 Y1))
  (setq PT2 (list X2 Y2))
  (setq TT 1)
  (command ".line" PT1 PT2 "")
  (setq A (/ A (cos Y)))
  (setq B (/ B (cos Y)))
  (while (< TT (* (- N 1) 2))
    (setq X3 (* (cos (* Y TT)) A))
    (setq y3 (* (sin (* Y TT)) A))
    (setq X4 (* (cos (* Y TT)) B))
    (setq y4 (* (sin (* Y TT)) B))
    (setq pt3 (list X3 Y3))
    (setq pt3 (list X3 Y3))
    (setq pt4 (list X4 Y4))
    (setq pt4 (list X4 Y4))
    (setq XC1 (/ (+ X1 X2) 2))
    (setq XC2 (/ (+ X3 X4) 2))
    (setq YC1 (/ (+ Y1 Y2) 2))
    (setq YC2 (/ (+ Y3 Y4) 2))
    (setq C1 (list XC1 YC1))
    (setq C2 (list XC2 YC2))
    (command ".line" PT1 PT3 PT4 PT2 "")
    (command ".line" C1 C2 "")
    (setq X1 X3)
    (setq X2 X4)
    (setq Y1 Y3)
    (setq Y2 Y4)
    (setq PT1 PT3)
    (setq PT2 PT4)
    (setq TT (+ TT 2))
  )
  (setq A (- R (/ D 2)))
  (setq B (+ R (/ D 2)))
  (setq X3 (* (cos (* (/ V 180) PI)) A))
  (setq y3 (* (sin (* (/ V 180) PI)) A))
  (setq X4 (* (cos (* (/ V 180) PI)) B))
  (setq y4 (* (sin (* (/ V 180) PI)) B))
  (setq pt3 (list X3 Y3))
  (setq pt4 (list X4 Y4))
  (setq XC1 (/ (+ X1 X2) 2))
  (setq XC2 (/ (+ X3 X4) 2))
  (setq YC1 (/ (+ Y1 Y2) 2))
  (setq YC2 (/ (+ Y3 Y4) 2))
  (setq C1 (list XC1 YC1))
  (setq C2 (list XC2 YC2))
  (command ".line" PT1 PT3 PT4 PT2 "")
  (command ".line" C1 C2 "")
  (setvar "osmode" 15359)  ;恢复对象捕捉
  (command "zoom" "e")
  (princ)
)