单步穿过两个

muck · 发表于 2022-7-6 14:20:25

AutoCAD 2009 VBA

以下代码仅适用于模型空间。如果我想跨过
模型和图纸空间。有声明吗？

Dim aObj作为身份
对于本图纸中的每个aObj。模型空间
'代码
下一个aObj

非常感谢。

SEANT · 发表于 2022-7-6 15:33:04

沿着这条路线应该会有效果。

   'include ModelSpace layout and all layouts in PaperSpace
  For Each objLayout In ThisDrawing.Layouts
     For Each Entity In objLayout.Block
        . . . . . .
     Next
  Next

[编程交流] 单步穿过两个

发表回复

精选推荐