只需一步，快速开始
VBA的代码转到VB去
其他的代码搞定了 因为都是 ThisDrawing.ModelSpace.Addxxxxxx
这样可以有东西替换
但是Zoom系列的命令 一上来就是 ZoomAll
在VB里没有这个命令的啊 没搞懂怎么改.
望高手赐教
使用道具 举报
Dim acadapp As AcadApplicationSet acadapp = GetObject(, "autocad.application")acadapp.ZoomAll
哦 谢谢楼上的。
非常感谢
本版积分规则 发表回复 回帖后跳转到最后一页
小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 ) ©2000-2023 明经通道 版权所有 本站代码，在未取得本站及作者授权的情况下，不得用于商业用途
GMT+8, 2024-11-27 02:47 , Processed in 0.172385 second(s), 24 queries , Gzip On.
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.
发表于 2006-6-14 14:35:00
置顶卡
变色卡
显身卡
楼主