68651521 发表于 2006-6-14 14:35:00

VBA转VB的时候 Zoom系列的命令怎么写?

VBA的代码转到VB去
其他的代码搞定了 因为都是 ThisDrawing.ModelSpace.Addxxxxxx
这样可以有东西替换
但是Zoom系列的命令 一上来就是 ZoomAll
在VB里没有这个命令的啊 没搞懂怎么改.
望高手赐教

xinghesnak 发表于 2006-6-15 08:59:00

Dim acadapp As AcadApplication
Set acadapp = GetObject(, "autocad.application")
acadapp.ZoomAll

68651521 发表于 2006-6-15 14:17:00

哦 谢谢楼上的。
非常感谢
页: [1]
查看完整版本: VBA转VB的时候 Zoom系列的命令怎么写?