求批量圆变多边形及图形格式刷？
在平面图中经常有圆跟多边形的互换，不想一个个去手动更换，能不能实现批量圆改多边形以及图形格式刷？图形格式刷相当于文字刷一样，直接用来刷封闭的多边形？
(defun c:tt ( / n a ss i s1 en_data cen r )
(setq n (getint "\n请输入正多边形的边数:"))
(initget "I C")
(setq a (getkword "\n输入选项 [内接于圆(I)/外切于圆(C)] <C>:"))
(if (setq ss (ssget '((0 . "circle"))))
(repeat (setq i (sslength ss))
(setq s1 (ssname ss (setq i (1- i))))
(setq en_data (entget s1))
(setq cen (cdr (assoc 10 en_data)))
(setq r (cdr (assoc 40 en_data)))
(if (= a "I")
(command "polygon" n cen "i" r)
(command "polygon" n cen "c" r)
)
)
)
(command "ERASE" ss "")
(princ)
) 批量圆变多边形TEST ;****************************************************
; cp--圆变多边形
;
;*****************************************************
;****************************************************圆变多边形
(defun c:cp (/ en n)
(setvar "cmdecho" 0)
(setq en (entsel "请选择一个圆"))
(setq en_data (entget (car en)))
(setq cen (cdr (assoc 10 en_data)))
(setq r (cdr (assoc 40 en_data)))
(setq n (getint "\n请输入正多边形的边数:"))
(initget "I C")
(setqa (getkword "\n输入选项 [内接于圆(I)/外切于圆(C)] <C>:"))
(if (= a "I")
(progn
(command "polygon" n cen "i" r)
)
(progn
(command "polygon" n cen "c" r)
)
)
(command "ERASE" en "")
(princ)
)
你发帖的楼下不就是多段线处理程序 htlaser 发表于 2023-12-26 12:05
这个对于单个的改是可以，但能不能来个批量修改的圆转多边形？
相同直径的圆，批量改多边形。 htlaser 发表于 2023-12-26 12:05
功能实现的不错，批量选择比较适宜。 htlaser 发表于 2023-12-26 19:41
批量圆变多边形TEST
科技民工 发表于 2023-12-26 08:28
你发帖的楼下不就是多段线处理程序
刚接触，不懂这些，就会拿来食用:P- 本帖最后由 蓝天cayuer 于 2023-12-27 07:48 编辑
批量改圆半径 燕秀工具箱好像就有
变多边形 没看过 收藏学习了
蓝天cayuer 发表于 2023-12-27 07:45
批量改圆半径 燕秀工具箱好像就有
变多边形 没看过 收藏学习了
批量改圆半径，三领也有，我说的那个图形格式刷没见过，不知道能不能实现这个功能，如果可以的话，那以后改图也方便了，跟文字刷一样，好像块有这个功能，普通图形应该有点难度。
页:
[1]
2