hillskysea 发表于 2009-6-2 16:05:00

[已解决]vb能否实现从模型空间转换到布局空间

本帖最后由 作者 于 2009-6-3 20:12:35 编辑

如题，我在模型空间中生成了一个实体，想要在vb中实现自动标注尺寸，cad中必须先切换到布局空间，请问cad中有没有命令可以从模型空间转换到布局空间，然后用sendcommand命令来实现呢？

xrongzhen 发表于 2009-6-3 09:36:00

<p>Sub DisplayLayout()<br/>&nbsp;&nbsp;&nbsp; Dim objLayout As AcadLayout<br/>&nbsp;&nbsp;&nbsp; Set objLayout = ThisDrawing.Layouts.Item("布局1")<br/>&nbsp;&nbsp;&nbsp; ThisDrawing.ActiveLayout = objLayout<br/>End Sub</p>

hillskysea 发表于 2009-6-3 20:12:00

xrongzhen发表于2009-6-3 9:36:00static/image/common/back.gifSub DisplayLayout()&nbsp;&nbsp;&nbsp; Dim objLayout As AcadLayout&nbsp;&nbsp;&nbsp; Set objLayout = ThisDrawing.Layouts.Item(\"布局1\")&nbsp;&nbsp;&nbsp; ThisDrawing.ActiveLayout

<p></p>非常感谢你，问题解决了

牵牛 发表于 2020-1-15 17:12:31

xrongzhen 发表于 2009-6-3 09:36
Sub DisplayLayout()&nbsp;&nbsp;&nbsp; Dim objLayout As AcadLayout&nbsp;&nbsp;&nbsp; Set objLayout =...

你好 如何用vb读取里面的所有布局名称 然后挨个打开呢 可以指导下吗 我的qq 3078936913
页: [1]
查看完整版本: [已解决]vb能否实现从模型空间转换到布局空间