|

楼主 |
发表于 2020-7-16 08:50:07
|
显示全部楼层
来自: 中国辽宁营口
6 b" K3 V4 M$ F5 O% z
给你一个代码参考:( U, @/ P' Q; d, R. Z, p
* ]7 J! J( L% `3 ^+ N# d/ i- Sub 插入块参照并修改属性块()
9 [, o$ O3 b! N - Dim BLK As AcadBlockReference, ObjArr As Variant) E: W" j; B8 _- m; k- }, i9 ?
- Set BLK = ThisDrawing.ModelSpace.InsertBlock(ThisDrawing.Utility.GetPoint(, "指定图框的插入点"), "横向图框", 1, 1, 1, 0) '插入指定名称的块参照
4 B3 \+ c+ c. O3 c - BLK.XScaleFactor = 2.5 '修改块参照的x方向比例
" i3 {1 ~/ u& T! m6 l/ \8 M$ c - BLK.YScaleFactor = 2.5 '修改块参照的y方向比例
4 `( x: V: ~ K `$ i4 d; o - 'Update3 m- H5 N3 I/ Z4 h
- ObjArr = BLK.GetAttributes '获取块参照中属性块的对象数组,就是把所有的属性块对象放在一个数组里。, b) K% ~. ^. [9 K( G: x4 a" |
- ObjArr(0).TextString = "袖修改的00" '修改对应的属性块的文本内容2 r( A, ^' H# `/ e7 q) C5 i% A2 Y
- ObjArr(1).TextString = "袖修改的01"
0 p8 N7 [) Q1 b, [# X2 z" n - ObjArr(2).TextString = "袖修改的02"
5 b0 q8 X' ]8 e - ObjArr(3).TextString = "新修改的属03性"1 x( _9 Q8 M6 Y4 U% y! X* L
- ObjArr(4).TextString = "袖修改的04"
, F$ ?9 C; {4 u4 I* R; T- ~7 R - ObjArr(5).TextString = "袖修改的05" 'TagStriing表示属性块的标记,只读属性
8 _; M4 I$ ]4 y3 w" Z8 k+ z - End Sub
复制代码 |
评分
-
查看全部评分
|