复制到最大间距

gazzalp · 发表于 2022-7-6 14:32:32

在我工作的地方，我们经常需要在两个特定点上绘制一条线或一个圆，在它们之间以最大间距绘制额外的线/圆。也就是说，屋顶平面图的每侧边缘都有檩条，我们需要最大间距为1200mm的檩条。所以我们现在做的是在第一个普鲁林和最后一个普鲁林之间画一条线，除以一定的数字，希望我们接近1200，然后把物体复制到每个点。是否有lisp例程，因此如果我们有两个点，单击它们，autocad会询问最大间距是多少，询问在该间距下需要什么对象，然后为我们完成所有工作。我们在屏幕的顶部绘制檩条，在底部绘制檩条。从lisp开始，它要求最大间距，我们输入1200，它要求我们复制什么，我们选择檩条，它将檩条放置在所有这些点上，最大间距为1200。

我想要的另一个lisp与此类似，但不同，我们通常在楼层平面中进行外部参照，并在其顶部绘制钢筋。因此，在新图形中，我们将在楼层平面中进行外部参照。我想要一个lisp，我们在外部参照上选择两条垂直线，（在本例中，间距为2400mm，autocad放入4条长度相同的垂直线，但间距为-第一条线在最左边的线的右侧300mm，然后是另一条线在右侧600mm，然后是另一条线在右侧600mm，再次相同。因此，我们将有-外部参照垂直线，300mm间距和一条新线，600mm间距和一条新线，600mm间距和一条新线，另一条600mm s。）调整间距并创建一条新线，与下一条外部参照线保持300mm的距离。最终，如果autocad可以要求我们提供两条垂直外部参照线，要求我们提供第一个偏移量（300），然后是我们需要的线数，最后一个偏移量（300），它会将它们均匀分布。IE启动lisp，点击第一条垂直线，输入间距300，输入我想要总共4行，输入最后一个设置为300）autocad会计算出如果我有300=300个偏移，它会留下1800毫米，有3个间距，它知道他们必须是600毫米。这听起来可能很复杂，如果有人需要更好的解释，我会贴一张照片

谢谢你的帮助

CAB · 发表于 2022-7-6 14:43:20

这是我添加的一个旧lisp提示距离。我今天还在用它。
[code]；；；函数ObjectOffsetAverage。lsp；；；数组命令的变体，用户选择方向和距离；；；对象的偏移量尽可能接近

CAB · 发表于 2022-7-6 14:47:44

如果外部参照未缩放且直线垂直，则这并不困难。
带有行前和行后的图片或DWG。

gazzalp · 发表于 2022-7-6 14:56:53

非常感谢你的代码，这是我想要的第二个，看起来像附件中的图片。两条红线（外部参照是水平的，但有时是垂直的。我需要一个宏来添加青色线。两条红线相距2400，内侧的第一条青色线都离红线300，中间的线间距相等。我希望能够选择两条红线，它会自动将最外层的两条线间隔300mm，然后询问我们需要多少条线，并且间距相等他们非常感谢你的帮助