（求助）大神能否帮忙实现一下“圆和圆弧批量转多段线”

999999

各位大神，看看能否帮小弟我实现圆和圆弧转多段线的功能
小弟在论坛里逛了一圈，有的就只能转圆，有的就只能转圆弧，有的评论里面复制的代码小弟我愚昧不太会用，
看能不能有大神帮一下忙
上传一下我在论坛里找到的大神写的代码
也看了好多有这种类型的，无耐呀，找不到自已想要的
望大神们出手


1.批量选择圆或圆弧

2.输入转成多段线的段数（带记忆功能）


谢谢大家啦

bonny

http://bbs.mjtd.com/forum.php?mod=attachment&aid=MTI4ODQ4fDA2ZmI4MGYzMWExMDZhZGRmYjJlZTFjYzQzMjNkZmI2fDE3NDAyOTIxNTM%3D&request=yes&_f=.gifattach://128848.gif

xyp1964

bonny

xyp1964 发表于 2023-8-9 21:57

liunian0524

http://bbs.mjtd.com/thread-186768-1-1.html 看下这里帖子

999999

bonny 发表于 2023-8-9 21:19
http://bbs.mjtd.com/forum.php?mod=attachment&aid=MTI4ODQ4fDA2ZmI4MGYzMWExMDZhZGRmYjJlZTFjYzQzMjNkZmI2fDE3NDAyOTIxNTM%3D&request=yes&_f=.gifattach://128848.gif

看了大神的演示图，厉害呀

999999

xyp1964 发表于 2023-8-9 21:57

圆还能实现改线宽，厉害了

999999

liunian0524 发表于 2023-8-10 08:11
http://bbs.mjtd.com/thread-186768-1-1.html 看下这里帖子

大神，这个我看到过，就是估计是我不会用，所以没有看明白

xyp1964

999999 发表于 2023-8-10 12:40
圆还能实现改线宽，厉害了

1. (defun Circle-W (s1 w / r)
   
2.   "Circle-W 圆改线宽"
   
3.   ;; (Circle-W (setq s1(car(entsel"\n选择: "))) 40)
   
4.   (defun dxf (code e) (cdr (assoc code (entget e))))
   
5.   (defun Donut (r1 r2 pt)
   
6.     (command "donut" r1 r2 "non" pt "")
   
7.     (entlast)
   
8.   )
   
9.   (if (= (DXF 0 s1) "CIRCLE")
   
10.     (progn
    
11.       (setq r (dxf 40 s1))
    
12.       (Donut (- (* r 2) w) (+ (* r 2) w) (dxf 10 s1))
    
13.       (entdel s1)
    
14.       (entlast)
    
15.     )
    
16.   )
    
17. )
    

(defun Circle-W (s1 w / r)<br />   "Circle-W 圆改线宽"<br />   ;; (Circle-W (setq s1(car(entsel"\n选择: "))) 40)<br />   (defun dxf (code e) (cdr (assoc code (entget e))))<br />   (defun Donut (r1 r2 pt)<br />     (command "donut" r1 r2 "non" pt "")<br />     (entlast)<br />   )<br />   (if (= (DXF 0 s1) "CIRCLE")<br />     (progn<br />       (setq r (dxf 40 s1))<br />       (Donut (- (* r 2) w) (+ (* r 2) w) (dxf 10 s1))<br />       (entdel s1)<br />       (entlast)<br />     )<br />   )<br /> )<br />

999999

xyp1964 发表于 2023-8-10 20:48

试了一下，我用不了，不知道是哪里的操作有问题