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
页: [1]
查看完整版本: 单步穿过两个