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

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

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

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

<P>Dim acadapp As AcadApplication<BR>Set acadapp = GetObject(, "autocad.application")<BR>acadapp.ZoomAll</P>
<P>&nbsp;</P>

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

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