弯头45到Entmake多段

Michaels · 发表于 2022-7-6 10:07:45

大家好。

是否可以使用Entmake折线绘制45或90度弯头？

有什么例子吗？

谢谢大家。

迈克尔

Lee Mac · 发表于 2022-7-6 10:11:34

您需要计算多段线顶点的凸出量，凸出量是夹角的1/4的切线，因此对于“45”弯头，需要凸出量为

tan (pi/16) = 0.198912

正表示逆时针，负表示顺时针。

然后，只需计算顶点的位置。

Michaels · 发表于 2022-7-6 10:15:26

谢谢李。

对不起，我不熟悉。你有没有举过与同一问题相关的例子？

非常感谢。

Lee Mac · 发表于 2022-7-6 10:19:40

创建所需的LWPolyline结果并查看DXF代码（如果需要，可以使用该代码）-调查哪些DXF代码控制凸起因子（我会给你一个提示..42），很快你就会熟悉了

Lee Mac · 发表于 2022-7-6 10:23:24

http://autodesk.com/techpubs/autocad/acad2000/dxf/lwpolyline_dxf_06.htm

Michaels · 发表于 2022-7-6 10:24:25

这是我做了很长时间的尝试，但为了使其获得正确的方向，我使用了带有（entlast）函数的Rotate命令。

所以现在我期待着在编码方面变得更好，特别是在*Polyine entmakes的函数方面，它的代码太多了，这让我感到紧张。

copy


(setq arc1 (getdist "\n Radious of small Elbow: "))
(setq line1(getdist "\n Width of Elbow: "))
(setq pt1 (getpoint "\n Insertion Point of Elbow: "))
(setq pt2 (list (- (car pt1) arc1)(+ (cadr pt1) arc1)))
(setq pt3 (list (car pt2) (+ (cadr pt2) line1)))
(setq pt4 (list (+ (car pt1) line1)(cadr pt1))) 
(command "_.pline" pt1 "width" 0 0 "arc" "angle" 90 pt1 pt2 "line" pt3 "arc" "angle" -90 pt4 "line" pt1 "")