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

使用VBA缩放所有

你好
我想要一个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

 
不客气。
页: [1]
查看完整版本: 使用VBA缩放所有