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

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


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


1.批量选择圆或圆弧

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


谢谢大家啦

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

attach://128848.gifattach://128848.gif:victory::victory::victory::victory::victory::victory:

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

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






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

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

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

:victory::victory::victory::victory::victory::victory::victory::victory::victory::victory:

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

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

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

bonny 发表于 2023-8-9 21:19
attach://128848.gifattach://128848.gif

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

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

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


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

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

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

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

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

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:49

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


试了一下，我用不了，不知道是哪里的操作有问题
页: [1]
查看完整版本: （求助）大神能否帮忙实现一下“圆和圆弧批量转多段线”