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

banhf2008

学习一下

F1640

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

F1640

能不能把代码发我邮箱，学习一下，非常感谢老师！
" [& {" i( o3 @& a* c3 U357218917@qq.com

wsj249201

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

武者

谢谢分享

363001640

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

kuangben8

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

给你一个截图参考：

woaishuijia

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

* Y$ C+ s' z+ h) q5 ]& M( B$ B补充楼上
外部参照对象：ExternalReference
% F) Z/ p5 ]$ J; _- D4 M1 ^
* p. h  I9 Z9 i
, {# v' ^# J1 O; F在图形中附着外部参照的方法：AttachExternalReference

1 @6 ]- s; h& ^3 h1 i8 @0 \6 u
1 n# V) q7 U4 n; R4 P+ C/ C" X
0 @# J! [/ U) p% C

kuangben8

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

, P8 ]- R  V/ E! k" O给你一个代码参考：

! X6 P& t' M7 [

1. Sub 插入块参照并修改属性块()
   
2.     Dim BLK As AcadBlockReference, ObjArr As Variant
   
3.     Set BLK = ThisDrawing.ModelSpace.InsertBlock(ThisDrawing.Utility.GetPoint(, "指定图框的插入点"), "横向图框", 1, 1, 1, 0)     '插入指定名称的块参照
   
4.     BLK.XScaleFactor = 2.5     '修改块参照的x方向比例
   
5.     BLK.YScaleFactor = 2.5     '修改块参照的y方向比例
   6 B& W$ ^/ `; @9 ?/ s! q& z3 l
6.     'Update
   
7.     ObjArr = BLK.GetAttributes  '获取块参照中属性块的对象数组，就是把所有的属性块对象放在一个数组里。
     b- {  q$ a1 _
8.     ObjArr(0).TextString = "袖修改的00"    '修改对应的属性块的文本内容
   ( _; P  V* Y. i4 Q( J3 T. u  J' O
9.     ObjArr(1).TextString = "袖修改的01"
   ) a& v# [8 B- l5 \, Q' D
10.     ObjArr(2).TextString = "袖修改的02"
    
11.     ObjArr(3).TextString = "新修改的属03性"
      w0 Z, Q5 B+ p3 A0 D7 E2 d( K
12.     ObjArr(4).TextString = "袖修改的04"
    % s, k( _! S) w
13.     ObjArr(5).TextString = "袖修改的05"        'TagStriing表示属性块的标记，只读属性
    
14. End Sub

复制代码

wmb123jd

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

dxxiaoyun

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

sh_h

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

shigl

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

kuangben8

shigl 发表于 2021-6-17 21:19
有些“事倍功半”的样子，编程所花的时间可以画几次同样的图了。

- W1 z$ v2 v. Q  U! \' d2 }0 C你这是第一次产生的效果。后续我就不用画了。

ajc111

谢谢楼主分享。学习学习