（求助）求助各位大神能否帮忙实现平行线倒角
本帖最后由 999999 于 2021-3-19 09:30 编辑求助各位路过的大神，帮忙实现一下以下图片上的功能，，拜托拜托
输入命令——框选平行线——完成倒角（并合并）
;;两平行直线两端倒圆角、合并
(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)
) start4444 发表于 2021-3-19 10:17
;;两平行直线两端倒圆角、合并
(defun c:tt5 (/ l1 l2 p10 p11 ss)
(setq ss(ssget ":S" '((0 . "LINE" ...
大神您好，我这边试用了一下，非常好用，就是自动合并好像没有实现，然后，您这边看一下，能不能实现多段线，和圆弧也能倒角呢？ 999999 发表于 2021-3-19 12:56
大神您好，我这边试用了一下，非常好用，就是自动合并好像没有实现，然后，您这边看一下，能不能实现多段 ...
好的呢，，谢谢大师啦，您辛苦啦，貌似利用倒角确实不能实现圆弧的， 这种 好像倒个0的R就可以吧？ 我运行后提示 参数类型错误: lselsetp nil，请教是怎么回事，2010CAD sunny_8848 发表于 2021-4-20 08:13
我运行后提示 参数类型错误: lselsetp nil，请教是怎么回事，2010CAD
要是两条平行的直线 多段线不行的 本帖最后由 sunny_8848 于 2021-4-22 08:24 编辑
guosheyang 发表于 2021-4-20 22:47
要是两条平行的直线 多段线不行的
是两条直线，出现一些设置选项，还是不能用
页:
[1]