将HVAC半径弯头转换为s

danglar · 发表于 2022-7-5 17:06:15

大家好！
我需要将半径弯头转换为分段，如图所示。。
（见附件）
我找到了将弧转换为具有用户定义的段数的分段pline的专用例程
（见附件）现在，我需要对这个程序进行一些改进，从线段顶点到选定弧中心绘制直线或样条线
有人能帮我做吗？
任何帮助都将不胜感激
弧到编号段-ASX。lsp

David Bethel · 发表于 2022-7-5 17:14:46

哇！我已经很久没有开发出戈尔肘部的图案了！

第一件事：第一个和最后一个戈尔是中间完全戈尔的1\2

在美国，我们使用SMACNA作为HVAC标准，以确定弯曲半径与圆形风管尺寸的关系。

GORE的数量取决于系统的应用。除尘器需要比标准通风多得多的血污。

你有需要满足的规格吗？

-大卫

danglar · 发表于 2022-7-5 17:19:03

我理解你的意思，但我没有任何规格，在第一个“脏”阶段，我只需要弧中心方向的戈尔之间的线连接

Ronso · 发表于 2022-7-5 17:26:44

为什么桡肘首先被画出来？

tzframpton · 发表于 2022-7-5 17:28:10

在帖子#204中下载此LISP：
http://www.cadtutor.net/forum/showthread.php?10882-需要更好的多行&p=670389&viewfull=1#post670389

这是本论坛的老成员ASMI最初创建的风管/管道布线程序的更新版本：
http://www.cadtutor.net/forum/showthread.php?30545-*免费*-用于AutoCAD的HVAC或管道程序

该程序首先基于几个输入值动态创建斜接、半径或gored管件。使用工具选项板上的宏，可以具有“预设”值。例如，只需点击一个按钮，您就可以拥有4“斜接喉，或1.5W半径的肘部。

这并不会“转换”你的肘部，但这可能是一个整体上的替代解决方案。希望这有帮助。

-TZ公司

**编辑**
刚才看到Ronso，我链接的程序的作者之一，已经发布了。非常感谢他不断更新此程序。

danglar · 发表于 2022-7-5 17:35:17

我已经在一组图纸中绘制了一组半径弯头，我需要“转换”它，而不需要重新绘制

tzframpton · 发表于 2022-7-5 17:40:44

那么我所提供的不会有多大帮助。未来的项目，是的。

Ronso · 发表于 2022-7-5 17:46:39

关于半径弯头，它们由哪些autocad对象组成？两条独立的多段线弧、两条独立的圆弧或一条连续的闭合多段线。当您提供的例程可以选择多种对象类型时，这不仅仅是一个小小的改进。

David Bethel · 发表于 2022-7-5 17:54:24

今天我有一些时间，这确实让我想起了很多晶圆厂的回忆：

copy


[color=#8b4513];|[/color]
2D GORE ELBOWS - MESH Entity
d = Duct Diameter
r = Throat Radius
q = Qty Of Gores
c = Center Point
s = Start Angle
b = Elbow Bend Angle
|[color=#8b4513];[/color]
[color=#8b4513];++++++++++++ Get Elbow Data +++++++++++++++++++++++++++++++++++++[/color]
[b][color=BLACK]([/color][/b]defun ge_get [b][color=FUCHSIA]([/color][/b][b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]initget 7[b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]setq d [b][color=NAVY]([/color][/b]getdist [color=#2f4f4f]"\nDuct Diameter:   "[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]setq rd [b][color=NAVY]([/color][/b]* d 1.5[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]initget 6[b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]setq r [b][color=NAVY]([/color][/b]getdist [b][color=MAROON]([/color][/b]strcat [color=#2f4f4f]"\nThroat Radius <"[/color] [b][color=GREEN]([/color][/b]rtos rd 2 2[b][color=GREEN])[/color][/b] [color=#2f4f4f]">:   "[/color][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]or r [b][color=NAVY]([/color][/b]setq r rd[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]while [b][color=NAVY]([/color][/b]or [b][color=MAROON]([/color][/b]not q[b][color=MAROON])[/color][/b]
          [b][color=MAROON]([/color][/b]< q 3[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]initget 7[b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]setq q [b][color=MAROON]([/color][/b]getint [color=#2f4f4f]"\nGore Qty - Min 3:   "[/color][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]initget 1[b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]setq c [b][color=NAVY]([/color][/b]getpoint [color=#2f4f4f]"\nRadius Center Point:   "[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]initget 1[b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]setq s [b][color=NAVY]([/color][/b]getangle c [color=#2f4f4f]"\nStart Angle:   "[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]initget 6[b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]setq b [b][color=NAVY]([/color][/b]getangle [color=#2f4f4f]"\nElbow Included Bend Angle <90>:   "[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]or b [b][color=NAVY]([/color][/b]setq b [b][color=MAROON]([/color][/b]* pi 0.5[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]
[color=#8b4513];++++++++++++ Entity Construction ++++++++++++++++++++++++++++++++[/color]
[b][color=BLACK]([/color][/b]defun ge_con [b][color=FUCHSIA]([/color][/b]d r q c s b / ga ha i ca c1 c2 p1 p2 pl1 pl2[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]setq ga [b][color=NAVY]([/color][/b]/ b [b][color=MAROON]([/color][/b]1- q[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
       ha [b][color=NAVY]([/color][/b]* ga 0.5[b][color=NAVY])[/color][/b]
       i 0[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]repeat q
    [b][color=NAVY]([/color][/b]setq ca [b][color=MAROON]([/color][/b]+ s [b][color=GREEN]([/color][/b]* ga i[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
    [b][color=NAVY]([/color][/b]setq c1 [b][color=MAROON]([/color][/b]polar c ca    r[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
    [b][color=NAVY]([/color][/b]setq c2 [b][color=MAROON]([/color][/b]polar c ca [b][color=GREEN]([/color][/b]+ r d[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
    [b][color=NAVY]([/color][/b]setq p1 [b][color=MAROON]([/color][/b]polar c1 [b][color=GREEN]([/color][/b]- ca [b][color=BLUE]([/color][/b]* pi 0.5[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]if [b][color=BLUE]([/color][/b]= i 0[b][color=BLUE])[/color][/b] 0 [b][color=BLUE]([/color][/b]* [b][color=RED]([/color][/b]sin ha[b][color=RED])[/color][/b] r[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
    [b][color=NAVY]([/color][/b]setq p2 [b][color=MAROON]([/color][/b]polar c2 [b][color=GREEN]([/color][/b]- ca [b][color=BLUE]([/color][/b]* pi 0.5[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]if [b][color=BLUE]([/color][/b]= i 0[b][color=BLUE])[/color][/b] 0 [b][color=BLUE]([/color][/b]* [b][color=RED]([/color][/b]sin ha[b][color=RED])[/color][/b] [b][color=RED]([/color][/b]+ r d[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
    [b][color=NAVY]([/color][/b]setq pl1 [b][color=MAROON]([/color][/b]cons p1 pl1[b][color=MAROON])[/color][/b]
          pl2 [b][color=MAROON]([/color][/b]cons p2 pl2[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
    [b][color=NAVY]([/color][/b]setq i [b][color=MAROON]([/color][/b]1+ i[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  [b][color=FUCHSIA]([/color][/b]setq pl1 [b][color=NAVY]([/color][/b]cons [b][color=MAROON]([/color][/b]polar c [b][color=GREEN]([/color][/b]+ s b[b][color=GREEN])[/color][/b] r[b][color=MAROON])[/color][/b] pl1[b][color=NAVY])[/color][/b]
        pl2 [b][color=NAVY]([/color][/b]cons [b][color=MAROON]([/color][/b]polar c [b][color=GREEN]([/color][/b]+ s b[b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]+ r d[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b] pl2[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  [b][color=FUCHSIA]([/color][/b]entmake [b][color=NAVY]([/color][/b]list [b][color=MAROON]([/color][/b]cons 0 [color=#2f4f4f]"POLYLINE"[/color][b][color=MAROON])[/color][/b][b][color=MAROON]([/color][/b]cons 66 1[b][color=MAROON])[/color][/b][b][color=MAROON]([/color][/b]cons 70 16[b][color=MAROON])[/color][/b][b][color=MAROON]([/color][/b]list 10 0 0 0[b][color=MAROON])[/color][/b]
                 [b][color=MAROON]([/color][/b]cons 71 2[b][color=MAROON])[/color][/b]
                 [b][color=MAROON]([/color][/b]cons 72 [b][color=GREEN]([/color][/b]1+ q[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  [b][color=FUCHSIA]([/color][/b]foreach v pl1
    [b][color=NAVY]([/color][/b]entmake [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]cons 0 [color=#2f4f4f]"VERTEX"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 70 64[b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 10 v[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  [b][color=FUCHSIA]([/color][/b]foreach v pl2
    [b][color=NAVY]([/color][/b]entmake [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]cons 0 [color=#2f4f4f]"VERTEX"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 70 64[b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 10 v[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  [b][color=FUCHSIA]([/color][/b]entmake [b][color=NAVY]([/color][/b]list [b][color=MAROON]([/color][/b]cons 0 [color=#2f4f4f]"SEQEND"[/color][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]
[color=#8b4513];************ Main Program ***************************************[/color]
[b][color=BLACK]([/color][/b]defun c:gore [b][color=FUCHSIA]([/color][/b]/ d rd r q c s b[b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]ge_get[b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]ge_con d r q c s b[b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]

运行c:gore或向ge_con输入数据。

HTH公司

-大卫

danglar · 发表于 2022-7-5 17:57:13

很好的方法，大卫！
谢谢，但我已经有了这个问题的“最终”解决方案。你可以在这里看到：
https://lispbox.wordpress.com/2016/10/18/convert-radius-elbow-to-segmented-with-user-defined-number-of-segments/

[编程交流] 将HVAC半径弯头转换为s

发表回复

精选推荐