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

banhf2008 · 发表于 2019-8-31 12:32:15

学习一下

F1640 · 发表于 2019-11-10 16:53:21

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

F1640 · 发表于 2019-11-10 16:55:03

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

wsj249201 · 发表于 2020-2-22 09:37:19

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

武者 · 发表于 2020-3-30 22:29:01

谢谢分享

363001640 · 发表于 2020-7-13 13:33:06

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

kuangben8 · 发表于 2020-7-15 15:39:02

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

给你一个截图参考：

woaishuijia · 发表于 2020-7-16 06:09:13

363001640 发表于 2020-7-13 13:33
, P" l0 l2 t3 G8 A* ~4 T9 n5 g太厉害了，学习了，但是想问一下，如果是调用外部块，并且如何对外部快操作。

补充楼上
外部参照对象：ExternalReference
无标题4.png

在图形中附着外部参照的方法：AttachExternalReference
无标题6.png

kuangben8 · 发表于 2020-7-16 08:50:07

363001640 发表于 2020-7-13 13:33* x( Y1 c6 \* y M% I+ _# T/ v
太厉害了，学习了，但是想问一下，如果是调用外部块，并且如何对外部快操作。

给你一个代码参考：

Sub 插入块参照并修改属性块()* W v' a4 E& Y3 J, y
Dim BLK As AcadBlockReference, ObjArr As Variant4 F0 Z" }1 x I j2 a* h. k6 b
Set BLK = ThisDrawing.ModelSpace.InsertBlock(ThisDrawing.Utility.GetPoint(, "指定图框的插入点"), "横向图框", 1, 1, 1, 0) '插入指定名称的块参照
0 v& E/ }7 _) R+ T; b7 O2 Z4 C
BLK.XScaleFactor = 2.5 '修改块参照的x方向比例% J1 N% Y6 h# L
BLK.YScaleFactor = 2.5 '修改块参照的y方向比例1 x! ^ M" V" S. B
'Update* h [( Y# |& G. d' t
ObjArr = BLK.GetAttributes '获取块参照中属性块的对象数组，就是把所有的属性块对象放在一个数组里。
: E9 [8 u1 ~# R) x) L; u( W q6 [
ObjArr(0).TextString = "袖修改的00" '修改对应的属性块的文本内容
! v4 L" J& ~2 i3 x0 ~
ObjArr(1).TextString = "袖修改的01"' F# y/ p& ]1 e' ]& k D
ObjArr(2).TextString = "袖修改的02"
6 L- X: t5 r- n' {. E' n
ObjArr(3).TextString = "新修改的属03性"
: O% S0 L( h, [$ S8 x3 k' i
ObjArr(4).TextString = "袖修改的04"/ O/ c( \# t, z0 T2 Q3 M
ObjArr(5).TextString = "袖修改的05" 'TagStriing表示属性块的标记，只读属性6 h3 z! Z/ C2 e, Z
End Sub

复制代码

wmb123jd · 发表于 2020-8-6 17:58:52

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

dxxiaoyun · 发表于 2020-11-16 14:33:19

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

sh_h · 发表于 2020-11-17 09:29:35

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

shigl · 发表于 2021-6-17 21:19:05

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

kuangben8 · 发表于 2021-6-18 13:52:31

shigl 发表于 2021-6-17 21:19
& L6 g7 q* y# Q* U; l' f4 L' l有些“事倍功半”的样子，编程所花的时间可以画几次同样的图了。

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

ajc111 · 发表于 4 天前

谢谢楼主分享。学习学习

		自动登录	找回密码
密码			注册

全站		goto3d 说: 此次SW竞赛获奖名单公布如下，抱歉晚了，版主最近太忙：一等奖：塔山817；二等奖：a9041、飞鱼；三等奖：wx_dfA5IKla、xwj960414、bzlgl、hklecon；请以上各位和版主联系，领取奖金！！！	2022-03-11
全站		goto3d 说: 在线网校新上线表哥同事（Mastercam2022）+虞为民版大（inventor2022）的最新课程，来围观吧！	2021-06-26

通知