|
回复 #7 truezx 的帖子
下面是附件中的代码
6 F' M! S o: y, z- Private Sub AcadDocument_ObjectModified(ByVal Object As Object) '在thisdrawing对象的代码模块声明一个事件过程,当文档被修改时执行其中的代码8 @8 l; [+ J3 v" v$ q: _. u3 x/ u' e8 B
- Dim S As AcadSelectionSet, T As Object, P As AcadLWPolyline: X9 M5 H& W: {5 v1 ?
- If Object.Handle = "2D67C" Then '当被修改的对象为指定的动态块中的正方形时执行下面的代码。"2D67C"是本文档中该正方形的句柄4 {# n4 Y+ S/ ]: R; H! E% s
- Set S = ThisDrawing.SelectionSets.Add("SS") '新建选择集并选择屏幕上所有对象; l S& M/ K) l: s
- S.Select acSelectionSetAll
' U: z/ \! B8 K - For Each T In S '遍历选择集5 ?) _% q5 }& O( {& P
- If T.Handle = "2D4EC" Then '找到指定的CAD表格时执行下面的代码。"2D4EC"是本文档中该表格的句柄
2 Y. u- H+ ~$ [ F0 _( e' @) B - Set P = Object
# i) ~2 V' R+ e1 d, r - T.SetText 1, 0, P.Coordinates(1) * 2 '在表格第二行(索引值1)第一列(索引值0)写入正方形边长。正方形边长为左上角Y坐标值乘以2! }0 j! A4 y: Q. a! I, e4 n
- Exit For '退出遍历循环( J- E$ W# I: ]( p, C1 x) {0 w) \
- End If2 M, |" o& F9 J: A7 E, v9 R
- Next
, h& e& ^& h# h4 B/ P( l4 M - S.Delete '删除用过的选择集
% q. a) N5 o: H# @/ R4 D* i! J - End If* ^# s0 ?# A1 }$ y2 J7 U; i
- End Sub
复制代码 % i( q7 z3 O1 r" p0 y+ k
这个程序是简陋的,只有基本的功能,用于提示用VBA解决楼主问题的可行的途径。
4 t2 T0 {0 l6 y& c程序中动态块与表格的关联关系是固定的,仅限于指定的文档中现存的对象。如果是编制一个实用程序,则代码中应该有设置关联关系的内容。另外,为了追求代码简单,程序中使用了文档层事件,这是一种低效率的做法,会明显影响到CAD的响应速度。
8 _' T: P* H" b- Z2 d5 C/ o楼上在编辑动态块后表格不再响应,是因为对图形界面现有动态块参照的更新,实质上是CAD用新参照代替了旧的参照。也就是说,在更新块参照后,原先的、包含句柄为"2D67C"的正方形的动态块参照已被CAD删除了,而由CAD插入的新参照在图形界面缩放时,这个简陋的程序并不知道这个参照是用来代替原先的参照的,所以代码的核心部分并未被执行。 |
|