[autolisp]刚学，试编个画五角星的lip，但不成功，求解，谢

lenlenq

(defun c:wu()
(setq os (getvar"osmode"))
;以下p1值须由使用者输入,p2、p3、p4、p5自动运算
(setq p1 (getpoint "\n请输入第一点:"))
(setq l (getreal "\n请输入五角星每边长度:"))
(setq p2 (polar p1 (* pi (/ -36.0 180)) l))
(setq p3 (polar p2 (* pi (/ 108.0 180)) l))
(setq p4 (polar p3 (* pi (/ -108.0 180)) l))
(setq p5 (polar p4 (* pi (/ 36.0 180)) l))
;按p1、p2、p3、p4、p5画线
(setvar"osmode" 0)
(command "pline" p1 p2 p3 p4 p5 "c")
(setvar"osmode" os)  
(princ)
)

aben687

俺也来凑个热闹
(defun c:wu()
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(setq pt_center (getpoint "\n请指定五角星的中心点"))
(setq r (getint "\n请输入五角星的外接圆半径"))
(setq ang (angtof "90.00"))
(setq a(/ 720 5))
(setq aa (rtos a))
(setq ang_add (angtof aa))
(setq ent (list (cons 0 "LWPOLYLINE") (cons 100 "AcDbEntity")
                      (cons 100 "AcDbPolyline") (cons 90 5) (cons 70 1)
             )
   )
(setq i 1)
(while i
   (setq pt (polar pt_center ang r))
  (setq ent(append ent (list(cons 10 pt))))
   (setq ang (+ ang_add ang))
   (setq i (+ 1 i))
   (print i)
   (if (= i (+ 1 5))
     (setq i nil)
   )
)
(entmake ent)
(setvar "osmode" os)
(princ)
)