偏移多条多段线

kanikaagarwal19 · 发表于 2022-7-5 18:45:22

可以使用divide命令（绘制>点>分割）来保持相等的距离。
如果有帮助，请告诉我！！

RobDraw · 发表于 2022-7-5 18:47:04

这将显示相等的距离。它对分配或保持这些距离没有任何作用。OP正在寻找一种自动化的方式来移动这些线路并保持连接。这需要一些漂亮的代码。

handasa · 发表于 2022-7-5 18:50:15

谢谢你的关注。。。但这似乎不会有多大帮助，因为这些线已经画出来了。。。我所需要的就是将它们等距偏移

BIGAL · 发表于 2022-7-5 18:54:07

坚持下去，答案可能很简单，但我正在度假，将发布一个多圆角lsp，可以修改为先做偏移，然后一次性重做所有的线圆角。如果你重复使用线，这真的不是那么难，普林斯将是一个问题。

由于我每天都在搬家，我的笔记本电脑的互联网有限。

BIGAL · 发表于 2022-7-5 18:56:43

这是一个多圆角，你可以任意选择3个点，因为L将很快尝试在偏移处添加新线。

copy


; Multi fillet of multiple lines in one go 
; By Alan H DEC 2015
(defun AH:Fmulti ( / ss fpts num num2 x y)
(alert "pick outside-inside-outside")
(setq fpts '())
(setq fpts (cons (getpoint "Pick outside")fpts))
(setq fpts (cons (getpoint "Pick inside") fpts))
(setq fpts (cons (getpoint "Pick outside") fpts))
(setq ss (ssget "F" fpts (list (cons 0 "LINE"))))
(setq num (sslength ss))
(setq num2 (/ num 2.0))
(if (= (- (fix num2) num2) 0.5)
(progn
(Alert "you have an odd number of lines please check")
(exit)
)
)
(setq x 0)
(setq y (- num 1))
(setvar "filletrad" 0.0)
(repeat (fix num2) ; not a real
(setq obj1 (ssname ss x))
(setq obj2 (ssname ss y))
(command "fillet" obj1 obj2)
(setq x (+ x 1))
(setq y (- y 1))
)
) ; defun
(AH:fmulti)

krishn1234 · 发表于 2022-7-5 19:01:11

首先，你必须使垂直线的距离相等。更改垂直线的位置。
x和y的Setq。

BIGAL · 发表于 2022-7-5 19:04:36

好的，第2部分现在是一个多偏移，用相同数量的固定偏移线替换现有线的数量。
ps下一篇文章是对原文章的回答

copy


; change offset lines to fixed spacing
; by Alan H Dec 2015
(defun aH:mulfrom1 ( / pt1 pt2 pt3 num fpts ss1 inc dist)
(setq pt1 (getpoint "\nPick outside"))
(setq pt2 (getpoint "\nPick inside"))
(setq pt3 (getpoint "\nPick outside"))
(setq fpts '())
(setq fpts (cons pt1 fpts))
(setq fpts (cons pt2 fpts))
(setq ss1 (ssget "F" fpts))
(setq num (sslength ss1))
(setq y -1)
(repeat (- num 1)
(command "erase" (ssname ss1 (setq y (+ y 1))) "")
)
(setq dist 0)
(setq inc (getreal "\nEnter offset distance"))
(setq obj (ssname ss1 (- num 1)))
(repeat (- num 1)
(setq dist (+ dist inc))
(command "_.offset" dist obj pt2 "")
)
)
(Ah:mulfrom1)