[求助]：ahlzl 斑竹，能不能编一个放养弯头（弯管）的程序送给大家？

huangqinghong

ahlzl  斑竹，能不能编一个放样变径管和弯头（弯管）的程序送给大家？

看了柔柔的一篇主题为《轻松一点，做做放样题》
http://www.xdcad.net/forum/showthre...&threadid=88330
斑竹在48、49贴中做的VBA程序对付这样的题真是令我佩服得五体投地，ahlzl  斑竹能不能再做一个变径管和弯头的放样程序送给大家？我看见你硬盘里面有3个放样的VBA程序了，是不是就是能送给我们？
这是我的邮箱：
huangqinghong@sina.com

先感谢 ahlzl  斑竹了！

ahlzl

您过奖了！我那是现学现卖，就这一点点水。
您说的变径管和弯头是这样的吗？如是，我觉得好象“弯头”在纯数学上是不能完全精确地展开的。
VBA和LISP的中文教程首选CAD的帮助文件(CAD2004的VBA,CAD2000的LISP);另外,常去论坛的编程版块,会有收获的.我的VBA和LISP都是到论坛后才入门的!

柔柔

最初由 ahlzl 发布
[B]我觉得好象“弯头”在纯数学上是不能完全精确地展开的。
[/B]

“展开”的目的是为了裁料，换句话说，那些用薄板“缝”起来的构件才有展开的必要。
上图弯头倒是有用薄板做出来的，见过用白铁皮做的出烟管，我不知道怎么做的，不过我怀疑是因为“敲”使得白铁皮变形，如果是这样，那纯数学是不能完全精确地展开的。

huangqinghong

柔柔大虾：白铁皮做成的烟囱管中的弯管是放样之后咬边做成的，并非是变形而成。如果 ahlzl  斑竹和柔柔大虾接触过环保专业的话，一定知道里面用的弯头、变径管、等径三通、异径三通、天圆地方等异型构件都是通过铆工师傅放样而成。而做设计的就需要准确的计算出上述异型构件的重量，以便给出相应的材料。其实等径弯头的材料是很好计算的，但是对于三通等就有点不好计算了， ahlzl  斑竹上次给出的天圆地方的VBA程序正好解决了这个问题，说句心里话，真的很了不起~ ，如能给出变径管（就如ahlzl  斑竹如图所示）的放样程序，真的能给搞环保专业的设计人员和铆工师傅省去不少的麻烦。

ahlzl

这个"变径管"的放样可用程序来进行,也可不用.这是一不用程序的演示:画一粗头半径100,细头半径80,长度200的"变径管"放样图.

ahlzl

用程序来画更方便.
VBA:[php]
Sub bjg_fy()
Dim pt(7) As Double
Dim pl As AcadLWPolyline
Dim ptt As Variant
Dim r1, r2, h, L1, L2 As Double
pi = 3.1415926535
ptt = ThisDrawing.Utility.GetPoint(, "请输入放样体左下角点：")
r1 = ThisDrawing.Utility.GetDistance(ptt, "请输入变径管粗头半径：")
r2 = ThisDrawing.Utility.GetDistance(ptt, "请输入变径管细头半径：")
h = ThisDrawing.Utility.GetDistance(ptt, "请输入变径管的长度：")

L1 = r1 * Sqr((h / (r1 - r2)) ^ 2 + 1)
L2 = (r2 / r1) * L1
pt(0) = ptt(0): pt(1) = ptt(1)
pt(2) = pt(0) + 2 * L1 * Sin(pi * r1 / L1)
pt(3) = pt(1)
pt(6) = pt(0) + (L1 - L2) * Sin(pi * r1 / L1)
pt(7) = pt(1) + (L1 - L2) * Cos(pi * r1 / L1)
pt(4) = pt(6) + 2 * L2 * Sin(pi * r2 / L2)
pt(5) = pt(7)
Set pl = ThisDrawing.ModelSpace.AddLightWeightPolyline(pt)
pl.Closed = True
pl.SetBulge 0, Tan(0.5 * pi * r1 / L1)
pl.SetBulge 2, -Tan(0.5 * pi * r1 / L1)
End Sub[/php]

ahlzl

程序这样运行:

huangqinghong

谢谢ahlzl斑竹啊， 一定是昨晚编的吧，辛苦你了，如能在你旁边，我一定为你沏茶倒水~
下定决心了，工作之余一定好好研究研究VBA程序，当然，不懂的地方还会麻烦 ahlzl斑竹你的！

ahlzl

最初由 huangqinghong 发布
[B]
下定决心了，工作之余一定好好研究研究VBA程序 [/B]

to huangqinghong: 我看了你的一些贴子,好象你对放样很感兴趣啊.要精确放样,关键不是VBA也不是CAD,是数学!要知道展开后是什么样的图形,知道了这,才能用CAD或程序把图画出来,我就是先在纸上画出草图,然后才用CAD来画的.

iam0411

不错不错，太谢谢了！！ *-*1

ahlzl

看这:
明白了这个道理,就知道放样从哪下手了!

huangqinghong

是啊，ahlzl  斑竹，我从事的是环保专业，接触的都是一些什么风管、弯管、变径管、三通之类的构件了，经常要对设计的管件进行重量计算。所以特别需要这方面的程序已加快设计过程，ahlzl  斑竹的这些对我帮助真是不小啊。谢谢你了！
其实用几何画法在CAD平台放样我还是可以的，但是速度很慢，效率不高，苦于自己不会编程，所以只能向斑竹您求救了，如ahlzl  斑竹能送我一个等径三通、变径三通的放样程序，那就太感谢您了！
ahlzl  斑竹，我这些天来的这些要求对您来说是不是有点过分了？

ahlzl

最初由 huangqinghong 发布
[B]是啊，ahlzl  斑竹，我从事的是环保专业，接触的都是一些什么风管、弯管、变径管、三通之类的构件了，经常要对设计的管件进行重量计算。所以特别需要这方面的程序已加快设计过程，ahlzl  斑竹的这些对我帮助真是不小... [/B]

你画一个立体图传上来(如第二贴).
下次提问题请不要点名叫某人来回答,,这样其他网友就不便回答了.我水平也很有限,完全是现学现卖,不能保证能解决问题!

huangqinghong

ahlzl  斑竹，我思考了一下，等径三通的样还是比较好放的，关键就是异径三通了，且这样的三通在工作中是很常见的，如图所示的三通，风量损失应该说是最小了，最利于除尘系统工作了。这样的三通工人师傅放样时很难放准确，最终会导致安装后尺寸出现较大的误差。
ahlzl  斑竹，我觉得你提醒得很对，我再把这道放样题作为一个讨论的主题放在这里，相信一定有很多大虾大显身手的！
谢谢ahlzl  斑竹！！！

ahlzl

这个程序我还没写出来!一是难,二是刚开学,事多点.业余时间少些.
我把这个主题顶一下,可能很多高手还没看到.如不用程序,用CAD的基本方法也可试试!三通应分成两部分来展开.
我把贴主的立体图画出来,各位可接着往下进行.