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

SWAYWOOD · 发表于 2003-10-29 12:39:00

这条封闭多段线如何才能画出来？
请参看HELP.DWG
复制代码(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)
   )
)
  )

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

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复