缩放多个对象的代码

rishidoshi · 发表于 2022-7-6 04:15:15

你好
我对autocad很陌生。（也不了解lisp）
我有一个平面布置图（附快照），有145个表格链接到excel表。

打印时表格的字体太小。（excel中的字体大小已设置为最大值）

我想将所有表格按一定比例缩放。（表在快照中以红色标记）
当我们执行QSELECT>Table>layer>equals>text时，所有表格都会被选中。
将比例应用于关于点的整个选择会产生平移和比例，并且表格会移出位置（如预期）

1、是否有任何方法可以在不每次选择表格的情况下逐个循环每个表格的流程。（如excel中的循环范围）
2.我们可以在某个角点（任何点都可以）附近将它们缩放到一起吗。
非常感谢您的回复。
当做

Tiger · 发表于 2022-7-6 04:29:03

您好Rishidoshi，欢迎来到论坛。

我已经将你的线程移到了自己的线程，请为每个新问题启动一个新线程。

基本的指挥规模难道不起作用吗？

ReMark · 发表于 2022-7-6 04:34:40

有一些自定义的lisp例程将根据自己的原始插入点缩放块，但我不知道这样的例程是否适用于OLE对象。

rishidoshi · 发表于 2022-7-6 04:37:49

它会的。我必须分别选择145张表中的每一张。可以一劳永逸。
但是，如果我的excel数据发生更改（这种情况非常频繁），并且我使用“updatelinks”命令，则表格会重置为excel中的原始字体大小。
所以每次发出updatelinks命令后，我都需要一个代码或一些自动方法来快速完成这项工作。

Tiger · 发表于 2022-7-6 04:48:50

但是如果你一次缩放所有的表，它不是从一个原点缩放它们吗？这不是你想要的吗？

为什么不在Excel中更改字体大小？即使有一个新的Excel文件，打开它并更改所有内容的字体大小也不难。

rishidoshi · 发表于 2022-7-6 04:53:12

它一次缩放所有对象，但从一个源点开始。所以所有的桌子也都搬走了。就好像整个集合是一个大对象。
只有红色椭圆中显示的表格需要缩放。其他事情需要保持原样。
我在excel中尽可能保持最大的字体大小和列宽。我可以继续增加字体大小，但不能增加列宽。
这导致在autocad中出现具有垂直数据的非常细的列。
不幸的是，更新链接“复制”了excel表的格式。颜色、大小、列宽等等
我只需要值和字体颜色。

steven-g · 发表于 2022-7-6 05:03:53

尝试在“表格样式”对话框中更改标题、标题和数据的文本大小（“菜单格式”“表格样式”/“修改样式”），然后在“特性”选项板中全局更改所有选定表格的特性（表格宽度和高度）。它可以在测试图纸上使用，但可以在您的图纸副本上尝试，因为它可能会真正扰乱布局。

rishidoshi · 发表于 2022-7-6 05:10:32

这是一个很好的选择。可悲的是，我的表格是“从数据链路”生成的。因此模板不适用于它。该选项变灰。
如果我们使用“从空表开始”，我们可以使用表样式来控制它。
感谢您的回复。

rishidoshi · 发表于 2022-7-6 05:18:57

已解决，但有一个变通方法：
1、将整个图纸缩小到0.4倍。
2.运行更新链接命令。（这使得表格看起来相对较大）
3.将所有内容缩放回原始（2.5x）
表格和字体现在看起来更大了。
希望这对别人有帮助。

Lisp程序：
（命令“.u scale”“all”“”（0 0）0.4）
（命令“..u DATALINKUPDATE”“u”“k”）
（命令“.u scale”“all”“”（0 0）2.5）

干杯

[编程交流] 缩放多个对象的代码

发表回复

精选推荐