分享学习AutoCAD编程之VBA笔记 (期初完结！)

banhf2008

学习一下

F1640

楼主很厉害，学习了，下载代码没流量了

F1640

能不能把代码发我邮箱，学习一下，非常感谢老师！
357218917@qq.com

wsj249201

好长时间没来了，这个帖子看上去好牛逼啊

武者

谢谢分享

363001640

太厉害了，学习了，但是想问一下，如果是调用外部块，并且如何对外部快操作。

kuangben8

363001640 发表于 2020-7-13 13:33
太厉害了，学习了，但是想问一下，如果是调用外部块，并且如何对外部快操作。

给你一个截图参考：

/ @" ]" b: _7 E* R1 _

8 b1 g. V' k1 z! i3 _5 M
) u/ `# d& ~' R3 i; e

woaishuijia

363001640 发表于 2020-7-13 13:33
太厉害了，学习了，但是想问一下，如果是调用外部块，并且如何对外部快操作。

补充楼上
外部参照对象：ExternalReference
5 y( g- j4 {" F5 u: n4 P" D- V- L/ x
- h$ k( a$ N. z* t4 ~3 q
0 `5 {) M0 K, L0 Z2 m在图形中附着外部参照的方法：AttachExternalReference
" `% X! i! ^3 ?
6 [: k" g! X0 j* c1 o2 R: Y+ `& L9 m

( `4 m0 K$ D) s# }0 i! u

1 u! ]' A2 [6 ]( U3 B+ e3 X

kuangben8

363001640 发表于 2020-7-13 13:33
% b/ s* t# p8 c, A太厉害了，学习了，但是想问一下，如果是调用外部块，并且如何对外部快操作。

给你一个代码参考：

' _' z) W6 x5 |& y, `, M" n

1. Sub 插入块参照并修改属性块()
   
2.     Dim BLK As AcadBlockReference, ObjArr As Variant
   
3.     Set BLK = ThisDrawing.ModelSpace.InsertBlock(ThisDrawing.Utility.GetPoint(, "指定图框的插入点"), "横向图框", 1, 1, 1, 0)     '插入指定名称的块参照
   " F3 K' a4 I$ }% ^
4.     BLK.XScaleFactor = 2.5     '修改块参照的x方向比例
   
5.     BLK.YScaleFactor = 2.5     '修改块参照的y方向比例
   6 Z$ i/ P& g! z) V7 ]
6.     'Update
   ' m- J) K+ V2 k% j
7.     ObjArr = BLK.GetAttributes  '获取块参照中属性块的对象数组，就是把所有的属性块对象放在一个数组里。
   
8.     ObjArr(0).TextString = "袖修改的00"    '修改对应的属性块的文本内容
   
9.     ObjArr(1).TextString = "袖修改的01"
   6 l9 _) w& a' v
10.     ObjArr(2).TextString = "袖修改的02"
    
11.     ObjArr(3).TextString = "新修改的属03性"
    + s+ a: K9 s7 X' K
12.     ObjArr(4).TextString = "袖修改的04"
    
13.     ObjArr(5).TextString = "袖修改的05"        'TagStriing表示属性块的标记，只读属性
    7 Z: f8 I  b. [$ x6 J& q' t$ c
14. End Sub

复制代码

wmb123jd

感谢分享，最近一直在学习这方面的知识，很少很少

dxxiaoyun

刚刚开始学，路还很长呢！来自excel VBA的问候。

sh_h

写的太好了，感谢分享！！！

shigl

有些“事倍功半”的样子，编程所花的时间可以画几次同样的图了。

kuangben8

shigl 发表于 2021-6-17 21:19
2 ]2 a  ~$ N! z4 R2 Y' E! B0 J# m有些“事倍功半”的样子，编程所花的时间可以画几次同样的图了。

! R  }' R+ Q% `6 ~: Z你这是第一次产生的效果。后续我就不用画了。

ajc111

谢谢楼主分享。学习学习