找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1407|回复: 8

[VBA程序]:刚写的快速修改标注文字的程序

[复制链接]
发表于 2003-4-14 21:46:46 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
这是下午在研究选择集的使用时写的快速修改替换标注文本的程序,程序粘贴的模块里就可以了。
Sub DE()
    Dim ss As AcadSelectionSet
    Set ss = GetSelSet
    Dim Ent As AcadEntity
    Dim h As Double
       For Each Ent In ss
       Dim s As String
       s = ThisDrawing.Utility.GetString(False, "输入新尺寸:")
       If TypeOf Ent Is AcadDimAngular Then
       Ent.TextOverride = s
       ElseIf TypeOf Ent Is AcadDimRotated Then
       Ent.TextOverride = s
       ElseIf TypeOf Ent Is AcadDimRadial Then
       Ent.TextOverride = s
       ElseIf TypeOf Ent Is AcadDimAligned Then
       Ent.TextOverride = s
       ElseIf TypeOf Ent Is AcadDim3PointAngular Then
       Ent.TextOverride = s
       ElseIf TypeOf Ent Is AcadDimDiametric Then
       Ent.TextOverride = s
       End If
       Next
End Sub

Function GetSelSet() As AcadSelectionSet
    Dim ss As AcadSelectionSet
    Set ss = ThisDrawing.PickfirstSelectionSet
    If ss.Count = 0 Then
        Dim ssName As String
        ssName = "strSSet"
        On Error Resume Next
        Set ss = ThisDrawing.SelectionSets(ssName)
        If Err Then Set ss = ThisDrawing.SelectionSets.Add(ssName)
        ss.Clear
        ss.SelectOnScreen
    End If
    Set GetSelSet = ss
End Function
另外,最近老觉得这里的人气不够旺了,要知道我学vba都是在这里学的,虽然现在还在学习中,但还是希望这里能一如既往的红火下去,让更多的新学者都能快速的找到入门的快捷方法。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 181个

财富等级: 日进斗金

发表于 2003-4-14 22:01:14 | 显示全部楼层
其实,在选择集中加上过滤机制,只选择尺寸标注对象,则效果更好。
如:FilterType(0)=0,FileterData(0)="Dim*",因为尺寸标注对象都是以Dim开头的,所以可以使用通配符“*”来代替。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2003-4-14 22:02:26 | 显示全部楼层
是的,这里就没有人气啊!我正在学VBA,望各位高手多多指点!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 181个

财富等级: 日进斗金

发表于 2003-4-14 22:14:27 | 显示全部楼层
在最新的 AutoCAD 2004 中文版的帮助文件中,第一次包含了中文的开发人员指南,相信有了这个教程的帮助,会有更多的人加入到VBA的开发队伍中,如果能达到Office那样自带的帮助,会极方便学习VBA开发的新人。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2003-4-14 22:36:52 | 显示全部楼层
谢谢斑竹的指点,我把你的建议保存了下来,明天拿到办公室研究:)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2003-4-14 22:42:10 | 显示全部楼层
VBA要先学什么呢?
请教
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2003-4-15 07:32:45 | 显示全部楼层
最近确实有点冷清。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2003-4-15 12:47:24 | 显示全部楼层
好希望各位高手们把自己的关于vba开发的一些经验写成文字出来,那样就可以为那些刚入门的初学者提供一些帮助,最近老看大一些朋友问有关vba程序打包和自动加载的问题,我把自己在这方面的经验写出来供大家参考。也希望朋友们能提供一些关于数据库开发方面的经验。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2003-4-28 23:41:36 | 显示全部楼层
think you
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-12-23 10:51 , Processed in 0.422468 second(s), 47 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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