三维管道末端/管道断裂

garlictaste · 发表于 2022-7-6 11:52:58

你好，来自德国，
我在acad2008上使用3d管道应用程序。直到今天，还没有办法在管道上绘制3d管端或部分隔热层。
它必须看起来像阴阳符号——但在3d中：
示例1：管径114.3 mm+保温层80mm
示例2：管道外径为168.3 mm，壁厚为8mm
我使用固体的方式总是一样的。
但是，在点击管道实体的末端并输入数据后，有一个自动绘制该图的程序可能会非常有用。
我的英语不是最好的，很抱歉。希望这些图片对你有帮助。
-大蒜-

Iso。图纸

wizman · 发表于 2022-7-6 11:58:17

您需要什么数据作为输出？

garlictaste · 发表于 2022-7-6 12:00:11

...如图/dwg所示。对于“数据”，我指的是直径和厚度=+绝缘或-壁厚。结果应该像一个有这些“特殊端”的管道
acad2008和acad2010
...你是这个意思吗？
-大蒜-

fixo · 发表于 2022-7-6 12:03:07

这会让你开始
我对你的直径有误解
更改所有尺寸以适合

copy


(defun C:SS (/ cpt dia1 dia2 dist dpt ept hgt1 thk2
       sol1 sol2 sol3 sol4 spt subsol1 subsol2 thk1)
(setvar "cmdecho" 0)
(command "._-view" "_swiso")
(command "._vscurrent" "_2")  
(setq dia1 (getdist "\nEnter big pipe diameter <168.3> : "))
(if (not dia1)(setq dia1 168.3))
(setq hgt1 (getdist "\nEnter pipe height <1000> : "))
(if (not hgt1)(setq hgt1 150.))
(setq thk1 (getdist "\nEnter pipe thickness <8> : "))
(if (not thk1)(setq thk1 8.))
(setq dia2 (getdist "\nEnter the conjunction pipe diameter <114.3> : "))
(if (not dia2)(setq dia2 114.3))
(setq thk2 (getdist "\nEnter thickness of insulation <40.0> : "))
(if (not thk2)(setq thk2 40.))
(setq dist (getdist "\nEnter distance between pipe axises <1000>: "))
(if (not dist)(setq dist 1000.))
(setq cpt (getpoint "\nPick center point of the big pipe: ")
     spt (list (car cpt)(+ (cadr cpt) hgt1)(caddr cpt))
     ept (list (car cpt)(- (cadr cpt) hgt1)(caddr cpt))
     )
(command "._cylinder" "_non" spt dia1 "_A"  ept)
(setq sol1 (entlast))
(command "._cylinder" "_non" spt (- dia1 (* 2 thk1)) "_A"  ept)
(setq subsol1 (entlast))
(command "._rotate3d" sol1 "" "_X" "_non" cpt -45.)
(setq sol1 (entlast))
(command "._rotate3d" subsol1 "" "_X" "_non" cpt -45.)  
(setq subsol1 (entlast))
(setq dpt (list (+ (car cpt) dist) (cadr cpt)(caddr cpt)))
(command "._copy" sol1 "" "_non" cpt "_non" dpt)
(setq sol2 (entlast))
(command "._rotate3d" sol2 "" "_X" "_non" cpt 90.)
(setq sol2 (entlast))  
(command "._copy" subsol1 "" "_non" cpt "_non" dpt)
(setq subsol2 (entlast))
(command "._rotate3d" subsol2 "" "_X" "_non" cpt 90.)
(setq subsol2 (entlast))  
(command "._cylinder" "_non" cpt dia2 "_A"  dpt)
(setq sol3 (entlast))
(command "._cylinder" "_non" cpt (+ dia2 (/ thk2 2.)) "_A"  dpt)
(setq sol4 (entlast))
(command "._subtract" sol4 "" sol3 "")
(setq sol4 (entlast))  
(command "._subtract" sol4 "" subsol1 "")
(setq sol4 (entlast))  
(command "._subtract" sol4 "" subsol2 "")
(setq sol4 (entlast))
(command "._subtract" sol4 "" sol1 "")
(setq sol4 (entlast))  
(command "._subtract" sol4 "" sol2 "")
(command "._vscurrent" "_C") 
(setvar "cmdecho" 1) 
(princ)
)

~'J'~

garlictaste · 发表于 2022-7-6 12:08:12

..我想，我试着解释错了。。。仅从以下内容开始：

（setq dia1（getdist“\n输入管径：”）。。。是外径

（setq hgt1（getdist“\n输入管道高度：”）。。。是管子的长度

（setq thk2（getdist“\n输入绝缘厚度：”）。。。好啊

整个管道的外径将为168,3+40+40 mm。

要减去的圆柱体直径始终为2.5 x管道外径，即168.3 x 2.5=420.75mm
圆柱体的高度可以始终是管道外径的1.1倍，这没关系。

这应该足够画出像图片上那样的部分了——我认为：不确定：。

-大蒜-

fixo · 发表于 2022-7-6 12:11:42

对不起，我不明白

~'J'~

garlictaste · 发表于 2022-7-6 12:12:27

嗯，我自己也很困惑：我觉得太复杂了：？

我测试了你的代码并做了一些肮脏的更改。它现在工作正常，但“输入管道半径”必须是“输入管道直径”，如果在acad中测试，您将看到。。。
你的代码很好：D，所以我可以用它。
*******
（定义C:SS（/cpt dia1 dia2 dist dpt ept hgt1 thk2
sol1 sol2 sol3 sol4 spt subsol1 subsol2 thk1）
; （setvar“cmdecho”0）
; （命令“.-view”“\u swiso”）
; （命令“.u vscurrent”“\u 2”）
（setq dia1（getdist“\n输入减去管道半径：”）
（if（非dia1）（setq dia1 300.0））
（setq hgt1（getdist“\n输入减去管道半长：”）
（if（非hgt1）（setq hgt1 300）
（setq dia2（getdist“\n输入管道半径：”）
（if（非dia2）（setq dia2 175.0））
（setq thk2（getdist“\n输入绝缘厚度：”）
（if（非thk2）（setq thk2 50）
（setq dist（getdist“\n输入管道最大长度：”）
（if（非dist）（setq dist 1000）
（setq cpt（getpoint“\n点击减法管道的中心点：”）
spt（列表（car cpt）（+（cadr cpt）hgt1）（caddr cpt））
ept（列表（car cpt）（（cadr cpt）hgt1）（caddr cpt））
)
（命令“_cylinder”“\u non”spt dia1“\u A”ept）
（setq sol1（entlast））
（命令“.u rotate3d”sol1“\u X”\u non”cpt-45。）
（setq sol1（entlast））
（setq dpt（list（+（car cpt）dist）（cadr cpt）（caddr cpt）））
（命令“..u copy“sol1”“”\u non“cpt”\u non“dpt”）
（setq sol2（entlast））
（命令“.u rotate3d”sol2“\u X”\u non”cpt 90。）
（setq sol2（entlast））
（命令“..u cylinder”“\u non”cpt dia2“\u A”dpt）
（setq sol3（entlast））
（命令“_cylinder”“\u non”cpt（+dia2（/thk2 1））“A”dpt）
（setq sol4（entlast））
（命令“.u减去”sol4“sol3”）
（setq sol4（entlast））
（命令“.u减去”sol4“sol1”）
（setq sol4（entlast））
（命令“.u减去”sol4“sol2”）
（命令“.u vscurrent”“\u 2”）
; （setvar“cmdecho”1）
（普林斯）
)
*********
我希望，现在更容易了。
-大蒜-

fixo · 发表于 2022-7-6 12:17:05

好啊
我需要什么
再次绘制样本图，精确尺寸为
然后上传到这里
对我来说会容易得多

~'J'~

garlictaste · 发表于 2022-7-6 12:18:42

你好，
我刚刚画了一张附有代码的图。
希望这有帮助。
-大蒜-
非常感谢：D
SS4.dwg
SS4.lsp

garlictaste · 发表于 2022-7-6 12:24:41

是否可以为dia1“减去管道半径”和hgt1“减去管道半长”提供相同的公式：
（管径+保温层）x 2.5？
这会让管道上的破裂看起来很漂亮。
是否可能给dist“管道最大长度”始终相同的公式：dia1 x 5？

之后只剩下“管径”和“保温厚度”的问题。
那真的太完美了！（…而且很复杂？）
-大蒜-

[编程交流] 三维管道末端/管道断裂

发表回复

精选推荐