求批量圆变多边形及图形格式刷？

zilong136 · 发表于 2023-12-26 02:33

在平面图中经常有圆跟多边形的互换，不想一个个去手动更换，能不能实现批量圆改多边形以及图形格式刷？

图形格式刷相当于文字刷一样，直接用来刷封闭的多边形？

maiko · 发表于 2023-12-28 11:20

(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)
)

htlaser · 发表于 2023-12-26 19:41

批量圆变多边形TEST

htlaser · 发表于 2023-12-26 12:05

;****************************************************
; 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")
(setq a (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)
)

科技民工 · 发表于 2023-12-26 08:28

你发帖的楼下不就是多段线处理程序

zilong136 · 发表于 2023-12-26 15:00

htlaser 发表于 2023-12-26 12:05

这个对于单个的改是可以，但能不能来个批量修改的圆转多边形？
相同直径的圆，批量改多边形。

xiao1984 · 发表于 2023-12-26 19:09

htlaser 发表于 2023-12-26 12:05

功能实现的不错，批量选择比较适宜。

xiao1984 · 发表于 2023-12-26 21:58

htlaser 发表于 2023-12-26 19:41
批量圆变多边形TEST

zilong136 · 发表于 2023-12-27 01:01

科技民工发表于 2023-12-26 08:28
你发帖的楼下不就是多段线处理程序

刚接触，不懂这些，就会拿来食用

蓝天cayuer · 发表于 2023-12-27 07:45

本帖最后由蓝天cayuer 于 2023-12-27 07:48 编辑

批量改圆半径燕秀工具箱好像就有
变多边形没看过收藏学习了

zilong136 · 发表于 2023-12-27 08:03

蓝天cayuer 发表于 2023-12-27 07:45
批量改圆半径燕秀工具箱好像就有
变多边形没看过收藏学习了

批量改圆半径，三领也有，我说的那个图形格式刷没见过，不知道能不能实现这个功能，如果可以的话，那以后改图也方便了，跟文字刷一样，好像块有这个功能，普通图形应该有点难度。

账号		自动登录	找回密码
密码			注册

求批量圆变多边形及图形格式刷？

点评

本帖子中包含更多资源

点评