帮助计算许多房室结

luongthevinh · 发表于 2022-7-5 17:03:23

大家好。
我在计算cad中的许多属性时遇到了一个问题。
例子：
我有一个矩形导管，高度x重量x长度。
我想要一个lisp计数属性，包括：“身高x体重x长度”
在论坛中有一个Lisp程序，但它只计算个人有属性。
我想包括“身高x体重x长度”
非常感谢！

David Bethel · 发表于 2022-7-5 17:18:04

你能发布一个样例DWG吗？

luongthevinh · 发表于 2022-7-5 17:35:53

我的意思是如果使用lisphttp://www.lee-mac.com/countattributevalues.html，得到的结果表明函数属性的值，但我的意思是，但我的意见是获得每个“块”的两个术语。
cad文件示例https://drive.google.com/open?id=0BzeFfYduaZE3aG5wcHBveldmTzA包括矩形风管

在参数上，包括风管的长度、宽度和高度。
在每个单独的值上使用“仅剥部分”lisp时。
我需要把数字去掉
例子：
风管：“300x200 L=1120mm”数量1，如单个如此不似lisp的剥离每个值：300数量1
******************************200数量1
******************************1120数量1

我希望lisp这样做。
非常感谢。

BIGAL · 发表于 2022-7-5 17:47:26

你试过数据提取吗？使用wblock并剪切dwg的样例部分，然后在此处发布链接无效。

David Bethel · 发表于 2022-7-5 17:56:49

虽然我不太了解您的确切需求，但这将创建一个所有唯一标记名/属性值及其各自计数和和和值的列表

copy


[b][color=BLACK]([/color][/b]defun c:att-sumc [b][color=FUCHSIA]([/color][/b]/ ss i en an ad av ai tn as d q s x al[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]while [b][color=NAVY]([/color][/b]not ss[b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]princ [color=#2f4f4f]"\nSelect ATTRIButed INSERTs:   "[/color][b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]setq ss [b][color=MAROON]([/color][/b]ssget '[b][color=GREEN]([/color][/b][b][color=BLUE]([/color][/b]0 . [color=#2f4f4f]"INSERT"[/color][b][color=BLUE])[/color][/b][b][color=BLUE]([/color][/b]66 . 1[b][color=BLUE])[/color][/b][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]setq i 0[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]while [b][color=NAVY]([/color][/b]setq en [b][color=MAROON]([/color][/b]ssname ss i[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]setq an [b][color=MAROON]([/color][/b]entnext en[b][color=MAROON])[/color][/b]
              ad [b][color=MAROON]([/color][/b]entget an[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]while [b][color=MAROON]([/color][/b]= [color=#2f4f4f]"ATTRIB"[/color] [b][color=GREEN]([/color][/b]cdr [b][color=BLUE]([/color][/b]assoc 0 ad[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
               [b][color=MAROON]([/color][/b]setq av [b][color=GREEN]([/color][/b]cdr [b][color=BLUE]([/color][/b]assoc 1 ad[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                     ai [b][color=GREEN]([/color][/b]atoi av[b][color=GREEN])[/color][/b]
                     tn [b][color=GREEN]([/color][/b]cdr [b][color=BLUE]([/color][/b]assoc 2 ad[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                     as [b][color=GREEN]([/color][/b]strcat tn av[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
               [b][color=MAROON]([/color][/b]if [b][color=GREEN]([/color][/b]not [b][color=BLUE]([/color][/b]assoc as al[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                   [b][color=GREEN]([/color][/b]setq al [b][color=BLUE]([/color][/b]cons [b][color=RED]([/color][/b]list as 1 ai[b][color=RED])[/color][/b] al[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                   [b][color=GREEN]([/color][/b]progn
                     [b][color=BLUE]([/color][/b]setq d [b][color=RED]([/color][/b]assoc as al[b][color=RED])[/color][/b]
                           q [b][color=RED]([/color][/b]1+ [b][color=PURPLE]([/color][/b]nth 1 d[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b]
                           s [b][color=RED]([/color][/b]+ ai [b][color=PURPLE]([/color][/b]nth 2 d[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b]
                           x [b][color=RED]([/color][/b]list as q s[b][color=RED])[/color][/b]
                          al [b][color=RED]([/color][/b]subst x d al[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
               [b][color=MAROON]([/color][/b]setq an [b][color=GREEN]([/color][/b]entnext an[b][color=GREEN])[/color][/b]
                     ad [b][color=GREEN]([/color][/b]entget an[b][color=GREEN])[/color][/b][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]prin1 al[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]

这可能有助于找到一个起点

-大卫

luongthevinh · 发表于 2022-7-5 18:15:00

怎么说你现在明白了。简而言之，我在绘制HVAC管道系统时计算体积时遇到问题。在图形中，我通过这个动态块将风管绘制为我发送的文件。问题是，我需要一个lisp来计算大小和长度不同的管道数量。
所以
所以我真的希望你能帮我写一个lisp来做到这一点。如果这样做，它提高了工作效率是非常高的。
我要再次感谢你们所有人对我的帮助。

[编程交流] 帮助计算许多房室结

发表回复

精选推荐