寻找一种共犯
小背景首先我在钢铁行业工作。我们必须测量梁，然后计算这些梁上有多少剪力钉。它们的中心通常为12英寸或24英寸。我想知道是否有办法启动一个命令，然后选择12“或24”，然后选择一行“梁”，它可以告诉我有多少螺柱将在该成员。对于一个额外的好主意，它可以将这个数字以文本或块的形式插入到梁上。
我知道这很复杂，但我的老板真的在督促我加快这个过程。
非常感谢你们是最棒的。。。。 你能贴一张这些东西看起来像什么的dwg（2000格式）吗？
谢谢 没有太多的显示梁将只是Autocad中的一条规则线“没什么特别的”，计数可能只是位于线正上方的文本，其中包含螺柱计数。 只是想弄清楚你是如何找到有多少螺柱的。取直线（梁）的距离除以24“或12”？然后在行（梁）上方插入答案？
这正是我在上一篇文章中试图表达的观点——我认为会绘制螺柱，然后LISP程序必须检测特定的形状类型——但如果这是一个简单的计算，那么为其制作LISP应该不会太难。 如果你取一个长度除以一个已知的量，你会得到一个答案，取这个答案的整数，这就是你需要的数量，我们画管道填充实心空白实心等等，这并不难。
当你想要抗剪连接件时，我希望你需要一些规则，从末端到末端的最小距离等，这并不难做到。你只需要简单地计算出多少个配合，你做一个环插入，第一个加上下一个间距，并不断检查总长度，如果大于直线，然后退出。
; 例程将N设置为pline段数。
（setq d12（距离pt1 pt2））
（setq N（固定（/d12 2.4）））
（setq remd（-d12（*N 2.4））） 由于BigAl-sais，需要定义末端段距离规则。
这是一份草稿。
(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)
) 将文本添加到行中没有什么大不了的，但也需要您提供更多信息。
正如李所建议的那样，上传一个带有成品线和标签的样例DWG会告诉我们很多。
文本应放在行上的位置。
与线路的距离，高于或低于
文本类型多行文字或纯文本
文本样式和大小
文本的对齐方式
图层文字已打开
谢谢你的澄清
但是，正如CAB所说，一张样图就好了。 好的，我这里有一个小例子画。
文本可以是多行的，但需要在数字周围有副词。
启动命令时，我需要为间距选择12“或24”。如果命令保持激活状态，我可以选择一个接一个的波束，因为我需要做数百个这样的事情，那就太好了。
万分感谢。。。就像我常说的，你们很棒。
螺柱示例。图纸
页:
[1]
2