QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

楼主: kuangben8
收起左侧

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

[复制链接]
发表于 2019-8-31 12:32:15 | 显示全部楼层 来自: 中国陕西西安
学习一下
发表于 2019-11-10 16:53:21 | 显示全部楼层 来自: 中国广东东莞
楼主很厉害,学习了,下载代码没流量了
发表于 2019-11-10 16:55:03 | 显示全部楼层 来自: 中国广东东莞
能不能把代码发我邮箱,学习一下,非常感谢老师!7 P: B4 J/ u# F# c8 Y8 e, Y
357218917@qq.com
发表于 2020-2-22 09:37:19 | 显示全部楼层 来自: 中国北京
好长时间没来了,这个帖子看上去好牛逼啊
发表于 2020-3-30 22:29:01 | 显示全部楼层 来自: 中国海南海口
谢谢分享
发表于 2020-7-13 13:33:06 | 显示全部楼层 来自: 中国浙江杭州
太厉害了,学习了,但是想问一下,如果是调用外部块,并且如何对外部快操作。

点评

给你一个代码参考:  详情 回复 发表于 2020-7-16 08:50
补充楼上外部参照对象:ExternalReference [attachimg]2350893[/attachimg][attachimg]2350894[/attachimg] 在图形中附着外部参照的方法:AttachExternalReference [attachimg]2350895[/attachimg][attachimg]2  详情 回复 发表于 2020-7-16 06:09
给你一个截图参考:[attachimg]2350887[/attachimg] [attachimg]2350888[/attachimg]  详情 回复 发表于 2020-7-15 15:39
 楼主| 发表于 2020-7-15 15:39:02 | 显示全部楼层 来自: 中国辽宁营口
363001640 发表于 2020-7-13 13:33
- z* M* d) g, R4 s6 j% |( x( o7 \8 o+ z太厉害了,学习了,但是想问一下,如果是调用外部块,并且如何对外部快操作。

) u( Q% r( d1 |/ N1 B8 M给你一个截图参考:
1 x) H/ N0 G) ~/ B 001.jpg 0 f1 q; A4 H; u: N( f

5 O, O3 s, [5 }: W1 Y 002.jpg
/ o) J% F3 h; E2 r, u) o8 Q) K( ^  l

评分

参与人数 1三维币 +10 收起 理由
2005llnn + 10 感谢您解答了求助的问题。

查看全部评分

发表于 2020-7-16 06:09:13 | 显示全部楼层 来自: 中国北京
363001640 发表于 2020-7-13 13:33
( l  j2 \, a4 H( g4 v. Y3 E太厉害了,学习了,但是想问一下,如果是调用外部块,并且如何对外部快操作。
9 f; y* m, \' l* E
补充楼上% }9 i6 c" z! l. q6 d' p0 r, B, r
外部参照对象:ExternalReference$ m5 `# H) m0 [2 v8 J( E, r( r& s
无标题4.png 无标题5.png
( e* `5 ]$ J  l9 l3 [- j
6 d( G: L9 s  q在图形中附着外部参照的方法:AttachExternalReference
# B6 q0 S- p0 C9 E2 Z* H' E! t 无标题6.png 无标题7.png - o0 }3 L' K9 a6 a! K4 W! u

3 b% E# z6 [! _/ ~
! o& e5 l$ u; q* u3 o( ~- Y6 e% u+ D1 @7 \- H+ V* o8 Z
; ]- a) x0 q1 r* s& w' R9 F

评分

参与人数 1三维币 +10 收起 理由
kuangben8 + 10 鼓励积极应答和参与的回帖。

查看全部评分

 楼主| 发表于 2020-7-16 08:50:07 | 显示全部楼层 来自: 中国辽宁营口
363001640 发表于 2020-7-13 13:33
0 W; I) I/ ?! f1 w* A太厉害了,学习了,但是想问一下,如果是调用外部块,并且如何对外部快操作。
6 b" K3 V4 M$ F5 O% z
给你一个代码参考:( U, @/ P' Q; d, R. Z, p

* ]7 J! J( L% `3 ^+ N# d/ i
  1. Sub 插入块参照并修改属性块()
    9 [, o$ O3 b! N
  2.     Dim BLK As AcadBlockReference, ObjArr As Variant) E: W" j; B8 _- m; k- }, i9 ?
  3.     Set BLK = ThisDrawing.ModelSpace.InsertBlock(ThisDrawing.Utility.GetPoint(, "指定图框的插入点"), "横向图框", 1, 1, 1, 0)     '插入指定名称的块参照
    4 B3 \+ c+ c. O3 c
  4.     BLK.XScaleFactor = 2.5     '修改块参照的x方向比例
    " i3 {1 ~/ u& T! m6 l/ \8 M$ c
  5.     BLK.YScaleFactor = 2.5     '修改块参照的y方向比例
    4 `( x: V: ~  K  `$ i4 d; o
  6.     'Update3 m- H5 N3 I/ Z4 h
  7.     ObjArr = BLK.GetAttributes  '获取块参照中属性块的对象数组,就是把所有的属性块对象放在一个数组里。, b) K% ~. ^. [9 K( G: x4 a" |
  8.     ObjArr(0).TextString = "袖修改的00"    '修改对应的属性块的文本内容2 r( A, ^' H# `/ e7 q) C5 i% A2 Y
  9.     ObjArr(1).TextString = "袖修改的01"
    0 p8 N7 [) Q1 b, [# X2 z" n
  10.     ObjArr(2).TextString = "袖修改的02"
    5 b0 q8 X' ]8 e
  11.     ObjArr(3).TextString = "新修改的属03性"1 x( _9 Q8 M6 Y4 U% y! X* L
  12.     ObjArr(4).TextString = "袖修改的04"
    , F$ ?9 C; {4 u4 I* R; T- ~7 R
  13.     ObjArr(5).TextString = "袖修改的05"        'TagStriing表示属性块的标记,只读属性
    8 _; M4 I$ ]4 y3 w" Z8 k+ z
  14. End Sub
复制代码

评分

参与人数 1三维币 +10 收起 理由
2005llnn + 10 感谢您解答了求助的问题。

查看全部评分

发表于 2020-8-6 17:58:52 | 显示全部楼层 来自: 中国重庆
感谢分享,最近一直在学习这方面的知识,很少很少
发表于 2020-11-16 14:33:19 | 显示全部楼层 来自: 中国四川眉山
刚刚开始学,路还很长呢!来自excel VBA的问候。
发表于 2020-11-17 09:29:35 | 显示全部楼层 来自: 中国山东济南
写的太好了,感谢分享!!!
发表于 2021-6-17 21:19:05 | 显示全部楼层 来自: 中国上海
有些“事倍功半”的样子,编程所花的时间可以画几次同样的图了。

点评

你这是第一次产生的效果。后续我就不用画了。  详情 回复 发表于 2021-6-18 13:52
 楼主| 发表于 2021-6-18 13:52:31 | 显示全部楼层 来自: 中国辽宁营口
shigl 发表于 2021-6-17 21:194 X, d) v: r( s0 M0 N+ _, k0 {: {7 i. d
有些“事倍功半”的样子,编程所花的时间可以画几次同样的图了。

( V: v8 d; u7 C7 Y9 _# l你这是第一次产生的效果。后续我就不用画了。
发表于 2024-11-26 08:11:13 | 显示全部楼层 来自: 中国江苏无锡
谢谢楼主分享。学习学习
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表