放大MTEXT对象AutoCAD

时间:2016-11-17 13:57:45

标签: vba access-vba ms-access-2013 autocad

我有一个访问数据库,其中包含有关在我们的地形上具有静态位置的对象的记录,因此我们可以找到它们查询数据库。
EG:代码描述位置
“E1-050505”“混凝土岗位”“街道#”

现在我的斗争是,要真正知道我们的地形去哪里(因为它的大),我必须参考AutoCAD地图,在那里我将通过搜索文本“E1-050505”检查“街道#”的位置”。我找到了能够打开autocad文件的vba代码,然后是文档。但是我找不到将焦点放在特定控件或对象上的方法或命令。

程序如下: 单击Access窗体上的按钮,VBA将启动我的CAD文件,搜索文本“E1-050505”,然后将视图设置为该对象的autocad绘图中的可视位置。

我能够搜索并找到MTEXT对象,但我还没有办法移动“相机”或视图来聚焦它。

我需要一个命令或代码才能将视图移动到MTEXT对象。

1 个答案:

答案 0 :(得分:3)

您可以使用缩放命令的对象选项:

AcadApp.ActiveDocument.SendCommand "_ZOOM" & vbCr & "_O" _
& vbCr & "(handent """ & mtext.Handle & """)" & vbCr & vbCr