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

999999 · 发表于 2023-8-9 18:19

各位大神，看看能否帮小弟我实现圆和圆弧转多段线的功能

小弟在论坛里逛了一圈，有的就只能转圆，有的就只能转圆弧，有的评论里面复制的代码小弟我愚昧不太会用，

看能不能有大神帮一下忙
上传一下我在论坛里找到的大神写的代码
也看了好多有这种类型的，无耐呀，找不到自已想要的
望大神们出手

1.批量选择圆或圆弧

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

谢谢大家啦

bonny · 发表于 2023-8-9 21:19

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

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

本帖最后由 xyp1964 于 2023-8-9 22:01 编辑

bonny · 发表于 2023-8-9 22:04

本帖最后由 bonny 于 2023-8-9 22:06 编辑

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

liunian0524 · 发表于 2023-8-10 08:11

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

999999 · 发表于 2023-8-10 12:38

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

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

999999 · 发表于 2023-8-10 12:40

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

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

999999 · 发表于 2023-8-10 12:41

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

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

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

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

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

999999 · 发表于 2023-8-11 08:09

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

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

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

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

本帖子中包含更多资源

本帖子中包含更多资源