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

banhf2008

学习一下

F1640

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

F1640

能不能把代码发我邮箱，学习一下，非常感谢老师！
  D2 B9 E! v8 [2 y. s357218917@qq.com

wsj249201

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

武者

谢谢分享

363001640

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

kuangben8

363001640 发表于 2020-7-13 13:33
" Z7 Y) u5 U" }3 l+ V9 X* i# Y太厉害了，学习了，但是想问一下，如果是调用外部块，并且如何对外部快操作。

+ H3 E" ?; R) B/ f( `' f0 u给你一个截图参考：


( ]4 S& U- g8 f
" C  Q( x: I% ?% B) o( m

woaishuijia

363001640 发表于 2020-7-13 13:33
( y) Q; |; C& ~8 G1 B太厉害了，学习了，但是想问一下，如果是调用外部块，并且如何对外部快操作。

补充楼上
外部参照对象：ExternalReference
" ?1 |  N( I' O! j9 g

在图形中附着外部参照的方法：AttachExternalReference
; Z8 W' x: i8 W# K
' O. v) j/ ]. U5 A
) ?2 v6 ~, O  H- X* q: B
" ~- J  q& f$ P: G0 \
8 S* t  a7 j; K1 G

kuangben8

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

给你一个代码参考：

9 x* @) y* z5 p' I! v# i

1. Sub 插入块参照并修改属性块()
   3 B& O; n: u  s; V. l( c* x5 C
2.     Dim BLK As AcadBlockReference, ObjArr As Variant
   1 u+ L: i* |+ {% h3 w
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.     'Update
   
7.     ObjArr = BLK.GetAttributes  '获取块参照中属性块的对象数组，就是把所有的属性块对象放在一个数组里。
   
8.     ObjArr(0).TextString = "袖修改的00"    '修改对应的属性块的文本内容
   : w$ f5 [6 x7 E: i* t& b/ A
9.     ObjArr(1).TextString = "袖修改的01"
   9 A7 R0 _5 N5 x& C7 D& |4 O  A2 V7 K3 l
10.     ObjArr(2).TextString = "袖修改的02"
    
11.     ObjArr(3).TextString = "新修改的属03性"
    ' Z; u0 }0 H8 i, l# j8 H) l
12.     ObjArr(4).TextString = "袖修改的04"
    1 b- Z. E3 v4 t& e9 s% [
13.     ObjArr(5).TextString = "袖修改的05"        'TagStriing表示属性块的标记，只读属性
    
14. End Sub

复制代码

wmb123jd

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

dxxiaoyun

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

sh_h

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

shigl

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

kuangben8

shigl 发表于 2021-6-17 21:19
8 E2 w4 t& M7 |* f; @  b3 r' n& l有些“事倍功半”的样子，编程所花的时间可以画几次同样的图了。

; g5 {, `* I% L7 A1 x4 f你这是第一次产生的效果。后续我就不用画了。

ajc111

谢谢楼主分享。学习学习