|
回复 #7 truezx 的帖子
下面是附件中的代码
. O8 a+ _( p* X" ^; d- Private Sub AcadDocument_ObjectModified(ByVal Object As Object) '在thisdrawing对象的代码模块声明一个事件过程,当文档被修改时执行其中的代码
2 q" m8 W! g$ T- b: `- L v - Dim S As AcadSelectionSet, T As Object, P As AcadLWPolyline
/ M6 A4 b" U6 E+ c1 c - If Object.Handle = "2D67C" Then '当被修改的对象为指定的动态块中的正方形时执行下面的代码。"2D67C"是本文档中该正方形的句柄
( I! t# P% y; u' R8 P, K+ s* h - Set S = ThisDrawing.SelectionSets.Add("SS") '新建选择集并选择屏幕上所有对象9 H$ l& O1 f/ l4 d1 o+ Y
- S.Select acSelectionSetAll
0 O3 }. O( g4 A) K - For Each T In S '遍历选择集/ x2 P" Q' c& _$ f8 r
- If T.Handle = "2D4EC" Then '找到指定的CAD表格时执行下面的代码。"2D4EC"是本文档中该表格的句柄. I: l7 O4 O3 H2 d
- Set P = Object1 {8 b" R2 _$ }
- T.SetText 1, 0, P.Coordinates(1) * 2 '在表格第二行(索引值1)第一列(索引值0)写入正方形边长。正方形边长为左上角Y坐标值乘以2
) W' U8 j |% u; t: M* d( l - Exit For '退出遍历循环/ \; [2 i* ~6 Z+ W
- End If
, P- g: V% B0 C1 s+ q: [! M - Next4 o7 J) `0 \( f: d, a
- S.Delete '删除用过的选择集
' B5 X. R4 Y1 ]# v) F# ]$ T - End If
& v3 d$ X* ~3 x' U, u/ X - End Sub
复制代码 0 \. B; l& A* d' c# v4 E
这个程序是简陋的,只有基本的功能,用于提示用VBA解决楼主问题的可行的途径。
& U; ^0 _* F' S* b) g I2 g程序中动态块与表格的关联关系是固定的,仅限于指定的文档中现存的对象。如果是编制一个实用程序,则代码中应该有设置关联关系的内容。另外,为了追求代码简单,程序中使用了文档层事件,这是一种低效率的做法,会明显影响到CAD的响应速度。$ u8 c6 n/ O# f# e- s7 {% K
楼上在编辑动态块后表格不再响应,是因为对图形界面现有动态块参照的更新,实质上是CAD用新参照代替了旧的参照。也就是说,在更新块参照后,原先的、包含句柄为"2D67C"的正方形的动态块参照已被CAD删除了,而由CAD插入的新参照在图形界面缩放时,这个简陋的程序并不知道这个参照是用来代替原先的参照的,所以代码的核心部分并未被执行。 |
|