偏移多段线

MR MAN · 发表于 2022-7-6 17:03:52

如何在附件lisp中偏移非多边形注意，我希望在形状内偏移？
D3.LSP

matthewrussell · 发表于 2022-7-6 17:25:09

尝试为距离添加一条（setq d1）线，然后在绘制多段线后立即在lisp中运行offset命令。
（命令“offset”（entlast）d1）。

也许可以试试这样的。您可能仍然需要单击对象的内部。我对所有这些编码还是新手，但试试看。

MR MAN · 发表于 2022-7-6 17:31:51

谢谢马修·拉塞尔（matthewrussell）的建议，但这对我不起作用

有什么帮助吗

Lee Mac · 发表于 2022-7-6 17:50:05

偏移示例：

（用lpseifert的话说）

*又快又脏*

copy


(defun c:off (/ lin ent len pt pt1 pt2 dist ang)
   (setvar "cmdecho" 0)
   (princ "\nConstruct Line to Offset...")
   (command "_line" pause pause "")
   (setq lin (entlast))
   (setq ent (entget lin))
   (setq len (distance (setq pt1 (cdr (assoc 10 ent))) (setq pt2 (cdr (assoc 11 ent)))))
   (setq pt (polar pt1 (setq ang (angle pt1 pt2)) (/ len 2)))
   (setq dist (getreal "Specify Offset Distance: "))
   (command "_offset" dist lin (polar pt (+ ang (/ pi 2)) 0.01) "")
   (setvar "cmdecho" 1)
   (princ)
) ;_  end defun

Lee Mac · 发表于 2022-7-6 17:57:13

在上述LISP中，使用entlast函数将构造的线分配给变量，然后提取线的中点-尽管老实说，该点可以是线上的任何点。-我只是选择了中点。

然后提取直线的角度，并将一个垂直于直线的点，以及从直线到一侧的一些距离（在本例中为0.01）分配给变量。

使用getreal函数检索偏移距离，然后在普通ACAD偏移函数中使用线变量、偏移距离和垂直点来偏移线。

MR MAN · 发表于 2022-7-6 18:14:05

亲爱的Lee Mac非常感谢您的帮助它可以处理线条，但不适用于PLINE我尝试使用_PLINE命令，但也不适用。我的问题是偏移PLINE，如我的LISP中所示

再次感谢。

[编程交流] 偏移多段线

发表回复

精选推荐