大虾们，这个程序怎么写！

SWAYWOOD

这条封闭多段线如何才能画出来？
请参看HELP.DWG

1. 程序代码内容

复制代码

(setq ag 0);;;原始角
(setq WE (+ ag pi));;;西
(setq NO (+ ag (/ pi 2)));;;北
(setq SO (+ WE (/ pi 2)));;;南
(SETQ EA AG);;;东
(SETQ WN (+ AG (* PI 0.75)));;;西北
(SETQ EN (+ AG (* PI 0.25)));;;东北
(SETQ WS (+ AG (* PI 1.25)));;;西南
(SETQ ES (+ AG (* PI 1.75)));;;南

(defun draw_cir_odd(num h)
  (setq laya(+ 1 laya))
  (setq p10 (polar p0 no h))
  (command "circle" p10 hrgri)
  (repeat (/ num 2)
    (setq p10 (polar p10 0 s))
    (command "circle" p10 hrgri)
    (if (= laya 1)
      (setq pp1 p10)
      )
    (if (= laya lays)
      (setq pp2 p10)
      )
    )
  (setq p10 (polar p0 no h))
  (repeat (/ num 2)
    (setq p10 (polar p10 pi s))
    (command "circle" p10 hrgri)
    (if (= laya 1)
      (setq pp4 p10)
      )
    (if (= laya lays)
      
      (setq pp3 p10)
      )
    )
  )
(defun draw_cir_even(num h)
  (setq laya(+ 1 laya))
  (setq p10 (polar p0 no h))
  (setq p10 (polar p10 pi (/ s 2.0)))
  (repeat (/ num 2)
    (setq p10 (polar p10 0 s))
    (command "circle" p10 hrgri)
    (if (= laya 1)
      (setq pp1 p10)
      )
    (if (= laya lays)
      (setq pp2 p10)
      )
    )
  (setq p10 (polar p0 no h))
  (setq p10 (polar p10 0 (/ s 2.0)))
  (repeat (/ num 2)
    (setq p10 (polar p10 pi s))
    (command "circle" p10 hrgri)
    (if (= laya 1)
      (setq pp4 p10)
      )
    (if (= laya lays)
      (setq pp3 p10)
      )
    )
  )

SWAYWOOD

我是个新手
请大家帮帮忙

龙龙仔

先把你的程序中未知的變數弄好再說!