[LISP程序]：一个画五角星程序供初学者参考

xxming

(defun c:rect_3 (/ pt1 pt2 pt3 pt4 orig_cmd orig_blip orig_osnp)
  (setq orig_blip (getvar "blipmode"))
  (setq orig_cmd (getvar "cmdecho"))
  (setq orig_osnp (getvar "osmode"))
  (setvar "blipmode" 0)
  (setvar "cmdecho" 0)
  (setvar "osmode" 0)
  (initget 9)
  (setq pt0 (getpoint "\n请指定星形图的中心点位置<0,0>: "))
  (initget 6)
  (setq s_rad(getdist pt0 "\n捕指定星形图的外接圆的半径[正实数]: "))
  (setq d90 (* pi (/ 90 180.0))
        d162 (* pi (/ 162 180.0))
        d234 (* pi (/ 234 180.0))
        d306 (* pi (/ 306 180.0))
        d18 (* pi (/ 18 180.0))
  )
  (setq pt1 (polar pt0 d90 s_rad)
        pt2 (polar pt0 d162 s_rad)
        pt3 (polar pt0 d234 s_rad)
        pt4 (polar pt0 d306 s_rad)
        pt5 (polar pt0 d18 s_rad)
  )
  (command "pline" pt1 pt3 pt5 pt2 pt4 pt1 "c")
  
  (setvar "blipmode" orig_blip)
  (setvar "cmdecho" orig_cmd)
  (setvar "osmode" orig_osnp)
  (prin1)
)
  (setq msg_ "\n..............指令:rect_3..........\n")
  (prompt msg_)

zqb05

好玩
不错