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

banhf2008

学习一下

F1640

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

F1640

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

wsj249201

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

武者

谢谢分享

363001640

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

kuangben8

363001640 发表于 2020-7-13 13:33
2 N# p8 Y6 ?; `- M" S$ C; n太厉害了，学习了，但是想问一下，如果是调用外部块，并且如何对外部快操作。

1 [5 I. o3 M2 M" Y- E+ L9 C给你一个截图参考：
, W, }" Z/ N( X8 [' `
/ D+ Y* @9 z8 _- L; _
% L9 e7 `/ T2 @" D, s8 {

woaishuijia

363001640 发表于 2020-7-13 13:33
! b- O  R) `* T; H太厉害了，学习了，但是想问一下，如果是调用外部块，并且如何对外部快操作。

% h0 s+ a5 A; y# p. H$ w补充楼上
外部参照对象：ExternalReference

3 p" U: f7 ]) C6 K2 i, o+ a) X( P
在图形中附着外部参照的方法：AttachExternalReference
: m% b) L1 p6 O8 v+ L$ J


$ S) L  S+ W# L; m' t1 X

kuangben8

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

7 n0 I& f2 y7 M0 K9 a9 v给你一个代码参考：
) v7 k' V. N" T1 V3 l
- ]( W% K3 ~1 ]) G

1. Sub 插入块参照并修改属性块()
   
2.     Dim BLK As AcadBlockReference, ObjArr As Variant
   
3.     Set BLK = ThisDrawing.ModelSpace.InsertBlock(ThisDrawing.Utility.GetPoint(, "指定图框的插入点"), "横向图框", 1, 1, 1, 0)     '插入指定名称的块参照
   3 ^; J( d: C0 Q0 w9 L
4.     BLK.XScaleFactor = 2.5     '修改块参照的x方向比例
   
5.     BLK.YScaleFactor = 2.5     '修改块参照的y方向比例
   6 K& T3 Y/ H  U5 C& D6 d' B+ V
6.     'Update
   
7.     ObjArr = BLK.GetAttributes  '获取块参照中属性块的对象数组，就是把所有的属性块对象放在一个数组里。
   % f/ ^" C6 f. {
8.     ObjArr(0).TextString = "袖修改的00"    '修改对应的属性块的文本内容
   
9.     ObjArr(1).TextString = "袖修改的01"
   
10.     ObjArr(2).TextString = "袖修改的02"
    
11.     ObjArr(3).TextString = "新修改的属03性"
    3 K, a8 k7 G- S
12.     ObjArr(4).TextString = "袖修改的04"
    
13.     ObjArr(5).TextString = "袖修改的05"        'TagStriing表示属性块的标记，只读属性
    ) H. c" I- A& Y2 t% _# G1 w
14. End Sub

复制代码

wmb123jd

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

dxxiaoyun

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

sh_h

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

shigl

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

kuangben8

shigl 发表于 2021-6-17 21:19
' I. b" c) O) ]+ s+ E3 _) \$ s; S有些“事倍功半”的样子，编程所花的时间可以画几次同样的图了。

& r, {* ^& o: I9 @你这是第一次产生的效果。后续我就不用画了。

ajc111

谢谢楼主分享。学习学习