（求助）求助各位大神能否帮忙实现平行线倒角

999999 · 发表于 2021-3-19 09:28

本帖最后由 999999 于 2021-3-19 09:30 编辑

求助各位路过的大神，帮忙实现一下以下图片上的功能，，拜托拜托

输入命令——框选平行线——完成倒角（并合并）

start4444 · 发表于 2021-3-19 09:28

;;两平行直线两端倒圆角、合并
(defun c:tt5 (/ l1 l2 p10 p11 ss)
(setq ss (ssget ":S" '((0 . "LINE"))) l1 (ssname ss 0) l2 (ssname ss 1) p10 (cdr (assoc 10 (entget l1))) p11 (cdr (assoc 11 (entget l1))))
(command "FILLET" (list l1 p10) l2) (setq ss (ssadd (entlast) ss))
(command "FILLET" (list l1 p11) l2) (setq ss (ssadd (entlast) ss))
(command "PEDIT" "m" ss "" "y" "j" "" "")
(princ)
)

999999 · 发表于 2021-3-19 12:56

start4444 发表于 2021-3-19 10:17
;;两平行直线两端倒圆角、合并
(defun c:tt5 (/ l1 l2 p10 p11 ss)
(setq ss (ssget ":S" '((0 . "LINE" ...

大神您好，我这边试用了一下，非常好用，就是自动合并好像没有实现，然后，您这边看一下，能不能实现多段线，和圆弧也能倒角呢？

999999 · 发表于 2021-3-19 13:59

999999 发表于 2021-3-19 12:56
大神您好，我这边试用了一下，非常好用，就是自动合并好像没有实现，然后，您这边看一下，能不能实现多段 ...

好的呢，，谢谢大师啦，您辛苦啦，貌似利用倒角确实不能实现圆弧的，

gowww · 发表于 2021-4-20 07:16

这种好像倒个0的R就可以吧？

sunny_8848 · 发表于 2021-4-20 08:13

我运行后提示参数类型错误: lselsetp nil，请教是怎么回事，2010CAD

guosheyang · 发表于 2021-4-20 22:47

sunny_8848 发表于 2021-4-20 08:13
我运行后提示参数类型错误: lselsetp nil，请教是怎么回事，2010CAD

要是两条平行的直线多段线不行的

sunny_8848 · 发表于 2021-4-22 08:21

本帖最后由 sunny_8848 于 2021-4-22 08:24 编辑

guosheyang 发表于 2021-4-20 22:47
要是两条平行的直线多段线不行的

是两条直线，出现一些设置选项，还是不能用

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

[提问] （求助）求助各位大神能否帮忙实现平行线倒角

最佳答案

点评