AutoCAD LISP绘制圆内接五边形

AutoCAD LISP绘制圆内接五边形，代码如下。

(defun c:test()
  (setvar "cmdecho" 0)
  (setq en (entsel "Select CIRCLE:"))
  (setq en_data (entget (car en)))
  (setq cenpt (cdr (assoc 10 en_data)))
  (setq rr (cdr (assoc 40 en_data)))
  (command "polygon" 5 cenpt "i" rr)
  (prin1)
  )
(prompt "********<<C:TEST>>**********")
(prin1)

代码完。

修改一下，绘制任意内接多边形，代码如下。

(defun c:test()
  (setvar "cmdecho" 0)
  (setq en (entsel "Select CIRCLE:"))
  (setq bian (getint "输入边数："))
  (setq en_data (entget (car en)))
  (setq cenpt (cdr (assoc 10 en_data)))
  (setq rr (cdr (assoc 40 en_data)))
  (command "polygon" bian cenpt "i" rr)
  (prin1)
  )
(prompt "********<<C:TEST>>**********")
(prin1)

代码完。