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

banhf2008

学习一下

F1640

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

F1640

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

wsj249201

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

武者

谢谢分享

363001640

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

kuangben8

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

& F" a+ _! n5 @7 B# n' A给你一个截图参考：
( g+ Y% p0 _0 I# s5 h
1 m1 ~. A9 |$ \9 x


: ?8 q, t$ I5 |. P* }: A# _

woaishuijia

363001640 发表于 2020-7-13 13:33
' o. @2 i3 `& W" J6 R5 a太厉害了，学习了，但是想问一下，如果是调用外部块，并且如何对外部快操作。

补充楼上
外部参照对象：ExternalReference
+ C. K2 y9 i/ e

在图形中附着外部参照的方法：AttachExternalReference

% l% U" E6 |5 f' m6 ^" s2 p0 L4 D; h
3 G, B& w* \6 @6 ]3 J7 D5 i
! M( W- N- M6 q# F
: v4 w* a9 i$ {

kuangben8

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

给你一个代码参考：
3 b* l; y- k) Z! {& ]

1. Sub 插入块参照并修改属性块()
   1 `& I% \+ S' u% b. {
2.     Dim BLK As AcadBlockReference, ObjArr As Variant
   
3.     Set BLK = ThisDrawing.ModelSpace.InsertBlock(ThisDrawing.Utility.GetPoint(, "指定图框的插入点"), "横向图框", 1, 1, 1, 0)     '插入指定名称的块参照
   % S, A+ ]! ~+ @. L9 P, ^
4.     BLK.XScaleFactor = 2.5     '修改块参照的x方向比例
   
5.     BLK.YScaleFactor = 2.5     '修改块参照的y方向比例
   
6.     'Update
   : f# d# [4 K+ G# D
7.     ObjArr = BLK.GetAttributes  '获取块参照中属性块的对象数组，就是把所有的属性块对象放在一个数组里。
   
8.     ObjArr(0).TextString = "袖修改的00"    '修改对应的属性块的文本内容
   1 G" Y% }' S' G' k( T( N* _- ]  r
9.     ObjArr(1).TextString = "袖修改的01"
   + q4 W% w& u+ q4 s! H
10.     ObjArr(2).TextString = "袖修改的02"
    " R$ ?4 u6 O/ z0 V8 E/ k
11.     ObjArr(3).TextString = "新修改的属03性"
    
12.     ObjArr(4).TextString = "袖修改的04"
    
13.     ObjArr(5).TextString = "袖修改的05"        'TagStriing表示属性块的标记，只读属性
    * ^; V, O" `2 s) s( f7 X
14. End Sub

复制代码

wmb123jd

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

dxxiaoyun

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

sh_h

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

shigl

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

kuangben8

shigl 发表于 2021-6-17 21:19
; O: U1 D4 a: s4 {0 y0 Q1 G, @有些“事倍功半”的样子，编程所花的时间可以画几次同样的图了。

4 |5 N5 r' o; J+ U; u你这是第一次产生的效果。后续我就不用画了。