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

banhf2008

学习一下

F1640

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

F1640

能不能把代码发我邮箱，学习一下，非常感谢老师！
  R8 t6 C+ c& U# r357218917@qq.com

wsj249201

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

武者

谢谢分享

363001640

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

kuangben8

363001640 发表于 2020-7-13 13:33
+ T2 o! z/ p' q0 U太厉害了，学习了，但是想问一下，如果是调用外部块，并且如何对外部快操作。

给你一个截图参考：

8 L) b7 x% Z/ _1 C5 m5 D# O$ \


6 v+ J9 Y, b% a$ W% W+ z

woaishuijia

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

3 _$ N5 P" o" m补充楼上
! q8 b$ i& x* O) J$ C外部参照对象：ExternalReference

( g5 f6 x  x( ~6 N& u7 s7 j
在图形中附着外部参照的方法：AttachExternalReference




4 k9 ~8 O+ \% }8 q- F1 D, j  o
9 u0 g! O. [1 r7 m" P1 e( m

kuangben8

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

给你一个代码参考：

1. Sub 插入块参照并修改属性块()
   - [. O5 K9 z1 o- N
2.     Dim BLK As AcadBlockReference, ObjArr As Variant
   ; X& B6 }9 u" w$ C# }$ e! P( r
3.     Set BLK = ThisDrawing.ModelSpace.InsertBlock(ThisDrawing.Utility.GetPoint(, "指定图框的插入点"), "横向图框", 1, 1, 1, 0)     '插入指定名称的块参照
   ) c2 p/ f; x6 a( g7 a* o  w
4.     BLK.XScaleFactor = 2.5     '修改块参照的x方向比例
   9 ]* Z. |5 |0 J# o) }9 l
5.     BLK.YScaleFactor = 2.5     '修改块参照的y方向比例
   
6.     'Update
   
7.     ObjArr = BLK.GetAttributes  '获取块参照中属性块的对象数组，就是把所有的属性块对象放在一个数组里。
   * s4 `2 ^' j0 z/ ~0 L
8.     ObjArr(0).TextString = "袖修改的00"    '修改对应的属性块的文本内容
   
9.     ObjArr(1).TextString = "袖修改的01"
   
10.     ObjArr(2).TextString = "袖修改的02"
    1 f) _+ Y8 I. ]% u
11.     ObjArr(3).TextString = "新修改的属03性"
    ! o5 Y6 }  q$ W9 }; D* H! }% P1 {
12.     ObjArr(4).TextString = "袖修改的04"
    4 j3 X, }/ ^+ z. ~/ b  V7 J
13.     ObjArr(5).TextString = "袖修改的05"        'TagStriing表示属性块的标记，只读属性
    
14. End Sub

复制代码

wmb123jd

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

dxxiaoyun

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

sh_h

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

shigl

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

kuangben8

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

你这是第一次产生的效果。后续我就不用画了。

ajc111

谢谢楼主分享。学习学习