[求助]方变圆

fawn_lgc

受到你的启发，我觉得做个圆转多边形的命令更实用。

carrot1983

fawn_lgc发表于2008-12-3 9:25:00受到你的启发，我觉得做个圆转多边形的命令更实用。

应该说更简单

http://tel.tstmr.com/dispbbs.asp?boardid=7&Id=2770

把圆350直径的改成正方形的边长是350的 

(defun c:tt ()
  (setq ss (ssget '((0 . "circle"))))
  (setq i 0)
  (while (< i (sslength ss))
    (setq e (ssname ss i))
    (setq pt (cdr (assoc 10 (entget e))))
    (command "._polygon" "4" "none" pt "c" "none" (polar pt 0 (* 0.5 350)))
    (entdel e)
    (setq i (1+ i))
  )
  (princ)
)

samshs

可不可自己輸入半園的數字的