寻找一种共犯

WCCSAM · 发表于 2022-7-6 15:17:20

小背景首先我在钢铁行业工作。
我们必须测量梁，然后计算这些梁上有多少剪力钉。它们的中心通常为12英寸或24英寸。我想知道是否有办法启动一个命令，然后选择12“或24”，然后选择一行“梁”，它可以告诉我有多少螺柱将在该成员。对于一个额外的好主意，它可以将这个数字以文本或块的形式插入到梁上。

我知道这很复杂，但我的老板真的在督促我加快这个过程。

非常感谢你们是最棒的。。。。

Lee Mac · 发表于 2022-7-6 15:21:38

你能贴一张这些东西看起来像什么的dwg（2000格式）吗？

谢谢

WCCSAM · 发表于 2022-7-6 15:25:13

没有太多的显示梁将只是Autocad中的一条规则线“没什么特别的”，计数可能只是位于线正上方的文本，其中包含螺柱计数。

chelsea1307 · 发表于 2022-7-6 15:28:17

只是想弄清楚你是如何找到有多少螺柱的。取直线（梁）的距离除以24“或12”？然后在行（梁）上方插入答案？

Lee Mac · 发表于 2022-7-6 15:31:47

这正是我在上一篇文章中试图表达的观点——我认为会绘制螺柱，然后LISP程序必须检测特定的形状类型——但如果这是一个简单的计算，那么为其制作LISP应该不会太难。

BIGAL · 发表于 2022-7-6 15:34:17

如果你取一个长度除以一个已知的量，你会得到一个答案，取这个答案的整数，这就是你需要的数量，我们画管道填充实心空白实心等等，这并不难。

当你想要抗剪连接件时，我希望你需要一些规则，从末端到末端的最小距离等，这并不难做到。你只需要简单地计算出多少个配合，你做一个环插入，第一个加上下一个间距，并不断检查总长度，如果大于直线，然后退出。

; 例程将N设置为pline段数。
（setq d12（距离pt1 pt2））
（setq N（固定（/d12 2.4）））
（setq remd（-d12（*N 2.4）））

CAB · 发表于 2022-7-6 15:37:27

由于BigAl-sais，需要定义末端段距离规则。
这是一份草稿。

copy

(defun c:bedivide (/ ent len 12d 24d)
 (vl-load-com)
 (if (and (setq ent (entsel "\nSelect object to divide."))
          (not (vl-catch-all-error-p
                 (setq start (vl-catch-all-apply
                               'vlax-curve-getpointatparam
                               (list (car ent) 0.0))))
          )
     )
   (progn
     (setq ent (car ent))
     (setq len (vlax-curve-getdistatparam ent (vlax-curve-getendparam ent)))
     (setq 12d (/ len 12)
           12d (fix (if (< (- len 12d) 12) (1- 12d) (- 12d 2)))
           24d (/ len 24)
           24d (fix (if (< (- len 24d) 24) (1- 24d) (- 24d 2)))
           )
     (prompt (strcat "\nStuds @ 24 = " (itoa 24d) " : Studs @ 12 = " (itoa 12d)))
   )
 )
 (princ)
)