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

banhf2008

学习一下

F1640

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

F1640

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

wsj249201

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

武者

谢谢分享

363001640

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

kuangben8

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

, O) \% z  ]1 f, N- b给你一个截图参考：

6 ~0 l4 r$ B5 B9 G0 g
7 ?+ t6 e# r  n! Q% U0 X$ |

woaishuijia

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

  z+ _" ]& W/ H, W$ T7 W9 g+ ?补充楼上
) z; I. i1 P8 i  e2 S外部参照对象：ExternalReference


在图形中附着外部参照的方法：AttachExternalReference
! a+ c. s! a( @3 t8 V  E6 t; Q6 n' X

8 p1 }3 u0 W) Z) l% ~' y5 E
2 S' C4 H. g' K

kuangben8

363001640 发表于 2020-7-13 13:33
- k# t3 J& }% _7 k4 p太厉害了，学习了，但是想问一下，如果是调用外部块，并且如何对外部快操作。

) }1 i3 c' L' v给你一个代码参考：
0 U6 T+ Q; P' i5 |( s
  q% d0 t" Z; |  y2 b. R7 v# o

1. Sub 插入块参照并修改属性块()
   0 a5 _/ H# p$ D( f, p4 @) _8 \
2.     Dim BLK As AcadBlockReference, ObjArr As Variant
   
3.     Set BLK = ThisDrawing.ModelSpace.InsertBlock(ThisDrawing.Utility.GetPoint(, "指定图框的插入点"), "横向图框", 1, 1, 1, 0)     '插入指定名称的块参照
   7 L7 m4 F' Z: c# D0 z
4.     BLK.XScaleFactor = 2.5     '修改块参照的x方向比例
   
5.     BLK.YScaleFactor = 2.5     '修改块参照的y方向比例
     a* H8 R3 A0 c0 w- ]0 t- ]
6.     'Update
   
7.     ObjArr = BLK.GetAttributes  '获取块参照中属性块的对象数组，就是把所有的属性块对象放在一个数组里。
   $ g  p6 W" [5 q) r
8.     ObjArr(0).TextString = "袖修改的00"    '修改对应的属性块的文本内容
   
9.     ObjArr(1).TextString = "袖修改的01"
   
10.     ObjArr(2).TextString = "袖修改的02"
    
11.     ObjArr(3).TextString = "新修改的属03性"
    $ t" x! S$ \' y
12.     ObjArr(4).TextString = "袖修改的04"
    
13.     ObjArr(5).TextString = "袖修改的05"        'TagStriing表示属性块的标记，只读属性
    
14. End Sub

复制代码

wmb123jd

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

dxxiaoyun

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

sh_h

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

shigl

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

kuangben8

shigl 发表于 2021-6-17 21:19
; n4 S/ d" y$ v: x' }5 n9 G0 J  G有些“事倍功半”的样子，编程所花的时间可以画几次同样的图了。

; p# l4 n8 \: _0 R& d! ]你这是第一次产生的效果。后续我就不用画了。

ajc111

谢谢楼主分享。学习学习