|
回复 #7 truezx 的帖子
下面是附件中的代码
1 T' V+ b2 w5 S- Private Sub AcadDocument_ObjectModified(ByVal Object As Object) '在thisdrawing对象的代码模块声明一个事件过程,当文档被修改时执行其中的代码- v) P# ~. s7 F" D
- Dim S As AcadSelectionSet, T As Object, P As AcadLWPolyline
) w+ H$ e: V* y+ l$ } - If Object.Handle = "2D67C" Then '当被修改的对象为指定的动态块中的正方形时执行下面的代码。"2D67C"是本文档中该正方形的句柄! w) v: O+ L% G& h) h N0 ?/ }
- Set S = ThisDrawing.SelectionSets.Add("SS") '新建选择集并选择屏幕上所有对象! H) _ n9 Q+ A6 j ]+ N- L: p
- S.Select acSelectionSetAll
6 Q' S4 g9 T+ T - For Each T In S '遍历选择集
- j, x- [2 N- ? ^2 V0 x7 h - If T.Handle = "2D4EC" Then '找到指定的CAD表格时执行下面的代码。"2D4EC"是本文档中该表格的句柄
9 I Q3 t# V( L7 u - Set P = Object1 C9 T* ~" w: l. z7 w
- T.SetText 1, 0, P.Coordinates(1) * 2 '在表格第二行(索引值1)第一列(索引值0)写入正方形边长。正方形边长为左上角Y坐标值乘以2! l0 `; [* Z9 p7 [8 _8 F
- Exit For '退出遍历循环
' }0 w' M: F5 I - End If5 H# X w% D& p
- Next
# g$ r- F: e: F1 T8 h9 s - S.Delete '删除用过的选择集7 ^* l4 s) P* g2 M2 \. f
- End If
6 l2 `, t8 @, ?$ ]2 M- W2 h" C: H/ q - End Sub
复制代码 3 w. A8 f9 y* Y6 p
这个程序是简陋的,只有基本的功能,用于提示用VBA解决楼主问题的可行的途径。9 ]) [, ^ L( |5 K2 \* n
程序中动态块与表格的关联关系是固定的,仅限于指定的文档中现存的对象。如果是编制一个实用程序,则代码中应该有设置关联关系的内容。另外,为了追求代码简单,程序中使用了文档层事件,这是一种低效率的做法,会明显影响到CAD的响应速度。
$ L s r% F" u/ ?楼上在编辑动态块后表格不再响应,是因为对图形界面现有动态块参照的更新,实质上是CAD用新参照代替了旧的参照。也就是说,在更新块参照后,原先的、包含句柄为"2D67C"的正方形的动态块参照已被CAD删除了,而由CAD插入的新参照在图形界面缩放时,这个简陋的程序并不知道这个参照是用来代替原先的参照的,所以代码的核心部分并未被执行。 |
|