圆桩变方桩: 问哈各位高手有没有办法把圆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) )
|