VBA转VB的时候 Zoom系列的命令怎么写?
VBA的代码转到VB去其他的代码搞定了 因为都是 ThisDrawing.ModelSpace.Addxxxxxx
这样可以有东西替换
但是Zoom系列的命令 一上来就是 ZoomAll
在VB里没有这个命令的啊 没搞懂怎么改.
望高手赐教
Dim acadapp As AcadApplication
Set acadapp = GetObject(, "autocad.application")
acadapp.ZoomAll
哦 谢谢楼上的。
非常感谢
页:
[1]