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

banhf2008

学习一下

F1640

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

F1640

能不能把代码发我邮箱，学习一下，非常感谢老师！
$ s( |4 ?6 ~, r2 v357218917@qq.com

wsj249201

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

武者

谢谢分享

363001640

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

kuangben8

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

给你一个截图参考：


: ^$ q6 h6 t6 q' j) S; L
) F  r- R! a1 Y' u# Y/ P  u! a2 P

woaishuijia

363001640 发表于 2020-7-13 13:33
4 f& Z; R8 \' Z/ j3 S3 H太厉害了，学习了，但是想问一下，如果是调用外部块，并且如何对外部快操作。

* A) L3 u5 a2 d( k* H4 M: @补充楼上
8 ?4 P% v/ f8 ]- ^& G  E; }  c外部参照对象：ExternalReference

( m& o$ z  S9 x4 F% x
在图形中附着外部参照的方法：AttachExternalReference
6 [. a" p. M9 D

  W+ G) G5 h! n6 e' d3 U  n0 h

( @" L# V: b; A1 H4 R: ]. \0 H5 Z+ B

kuangben8

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

1 F+ U/ z, B7 p- n1 U* u0 [$ B给你一个代码参考：

( q6 m& s% y" T+ h

1. Sub 插入块参照并修改属性块()
   3 A/ h2 `) n# x6 F5 [7 j5 r$ K
2.     Dim BLK As AcadBlockReference, ObjArr As Variant
   
3.     Set BLK = ThisDrawing.ModelSpace.InsertBlock(ThisDrawing.Utility.GetPoint(, "指定图框的插入点"), "横向图框", 1, 1, 1, 0)     '插入指定名称的块参照
   1 I+ r" b1 @2 |" K5 F
4.     BLK.XScaleFactor = 2.5     '修改块参照的x方向比例
   
5.     BLK.YScaleFactor = 2.5     '修改块参照的y方向比例
   
6.     'Update
   
7.     ObjArr = BLK.GetAttributes  '获取块参照中属性块的对象数组，就是把所有的属性块对象放在一个数组里。
   
8.     ObjArr(0).TextString = "袖修改的00"    '修改对应的属性块的文本内容
   ; ?' p2 k: \) ]3 ^9 y, o% G5 ^
9.     ObjArr(1).TextString = "袖修改的01"
   # P5 s; P7 l  e& o9 m
10.     ObjArr(2).TextString = "袖修改的02"
    
11.     ObjArr(3).TextString = "新修改的属03性"
    
12.     ObjArr(4).TextString = "袖修改的04"
    6 {1 z2 o7 ^8 U- C; r
13.     ObjArr(5).TextString = "袖修改的05"        'TagStriing表示属性块的标记，只读属性
    6 n0 ]6 S* l' E# X) C
14. End Sub

复制代码

wmb123jd

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

dxxiaoyun

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

sh_h

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

shigl

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

kuangben8

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

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

ajc111

谢谢楼主分享。学习学习