使用VBA缩放所有

colmguckian · 发表于 2022-7-6 22:41:08

你好
我想要一个VBA宏，它可以将模型空间中的所有内容从
0,0的基点。
我还希望宏在图纸空间中也能这样做

BlackBox · 发表于 2022-7-6 23:03:45

欢迎来到CADTutor！

在VBA中需要这个宏有什么原因吗？

我这样问是因为一个简单的LISP例程可以实现这一点，例如：

按25.4的比例放大：


(command "._scale" "all" "" '(0 0 0) 25.4)

按比例缩小（/1 25.4）：


(command "._scale" "all" "" '(0 0 0) (/ 1 25.4))

希望这有帮助！

BlackBox · 发表于 2022-7-6 23:19:22

... 我应该注意到，“缩放”命令将仅作用于未锁定、解冻层上的实体（即，图纸空间中冻结层上的视口将不会缩放）。根据需要调整代码。

colmguckian · 发表于 2022-7-6 23:40:53

非常感谢Renderman

BlackBox · 发表于 2022-7-6 23:45:05

不客气。