设为首页收藏本站
开启辅助访问 切换到宽版

SolidWorks机械工程师网——最大的SolidWorks学习平台

 找回密码
 立即注册

QQ登录

只需一步，快速开始

SolidWorks机械工程师网——最大的SolidWorks学习平台»学习社区 › SolidWorks开发与拓展应用 › SolidWorks二次开发（宏，VBA） › 图号名称如何自动分别填入标题栏?
返回列表 发新帖
查看: 1193|回复: 13
打印 上一主题 下一主题

图号名称如何自动分别填入标题栏?

  [复制链接]
大尝客

15

主题

80

帖子

90

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
260
QQ
跳转到指定楼层
楼主
发表于 2016-8-25 23:06:11 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

   经典图书
大家好,我在网上也找了不少的"图号名称自动分离"的方法,大家都是用宏命令实现的.但是我分别试用了不同版本的宏都无法实现.所以我恳请哪位有过这方面经验的高人能教教我,最好能加我QQ:347849309,直接交流会方便不少,或者能发我一份写好的宏程序及图纸模板.谢谢! 我是64位WIN7系统,SW是64位的SW2012 SP5的,比如图纸保存为:AJLZP01-01-01_平板,想在出工程图时能够自动的把AJLZP01-01-01自动填入标题中代号栏,平板自动填入标题栏中的名称栏. 我知道可能会有人觉得网上好多这方面的内容,觉得很简单,可说真的可能我太笨了吧,我试了多少都没成功,所以非常希望能得到大家很直接的解决办法,再次感谢!
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 转播转播 分享教程|习题|模型|技巧 点赞点赞 拍砖拍砖
SolidWorks机械工程师网
提示：建议使用谷歌浏览器浏览本网站！如单击这里下载！否则，可能无法下载附件文件！（支持大多数版本的谷歌浏览器，支持360和QQ浏览器的极速模式，即谷歌内核模式，使用IE和Edge浏览器，浏览个别网页以及下载文件时，会误报“***不安全”，此时需要单击“继续访问此不安全站点(不推荐)”才可以继续下载，另外，本网站不含任何不安全的文件，已联系微软公司解决，纯属IE和Edge浏览器误报）
回复

使用道具 举报

鸿蒙初判

16

主题

69

帖子

114

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
254
QQ
沙发
发表于 2016-8-25 23:07:11 | 只看该作者
    Dim swApp As Object
    Dim a As Variant
    Sub main()
    Set swApp = Application.SldWorks
    Set model = swApp.ActiveDoc
    Title = model.GetTitle
    Title = Left(Title, Len(Title) - 7)
    a = Split(Title, "_")
       retval = swApp.ActiveDoc.DeleteCustomInfo2(sConfigName, &quotartNo")
       retval = swApp.ActiveDoc.AddCustomInfo3(sConfigName, &quotartNo", swCustomInfoText, a(0))
       retval = swApp.ActiveDoc.DeleteCustomInfo2(sConfigName, &quotartName")
       retval = swApp.ActiveDoc.AddCustomInfo3(sConfigName, &quotartName", swCustomInfoText, a(1))
    End Sub

复制代码
由於繁簡的問題，請將 PartNo 改為代號； PartName 改為名稱。
SolidWorks机械工程师网
提示：建议使用谷歌浏览器浏览本网站！如单击这里下载！否则，可能无法下载附件文件！（支持大多数版本的谷歌浏览器，支持360和QQ浏览器的极速模式，即谷歌内核模式，使用IE和Edge浏览器，浏览个别网页以及下载文件时，会误报“***不安全”，此时需要单击“继续访问此不安全站点(不推荐)”才可以继续下载，另外，本网站不含任何不安全的文件，已联系微软公司解决，纯属IE和Edge浏览器误报）
回复 支持 反对

使用道具 举报

5561385

17

主题

67

帖子

134

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
271
QQ
板凳
发表于 2016-8-25 23:09:02 | 只看该作者

   经典图书
非常感谢你的回复.我运行了一下,08代码行提示出错了,能不能再帮着看一下.
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

zja239

18

主题

79

帖子

119

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
271
QQ
地板
发表于 2016-8-25 23:27:25 | 只看该作者
能貼個圖看看是什麼情況嗎？
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

birds1314

0

主题

10

帖子

48

金币

天使

Rank: 2Rank: 2

积分
140
5#
发表于 2016-9-4 12:07:34 | 只看该作者

   经典案例图书
学习了，谢谢楼主分享
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

birds1314

0

主题

10

帖子

48

金币

天使

Rank: 2Rank: 2

积分
140
6#
发表于 2016-9-4 14:45:25 | 只看该作者
学习了，谢谢楼主分享
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

birds1314

0

主题

10

帖子

48

金币

天使

Rank: 2Rank: 2

积分
140
7#
发表于 2016-9-4 17:39:31 | 只看该作者

   经典案例图书
学习了，谢谢楼主分享
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

birds1314

0

主题

10

帖子

48

金币

天使

Rank: 2Rank: 2

积分
140
8#
发表于 2016-9-17 21:10:46 | 只看该作者
学习了，谢谢楼主分享
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

ancocn

0

主题

1

帖子

11

金币

混混

Rank: 1

积分
31

最佳新人
9#
发表于 2016-11-2 16:26:44 | 只看该作者
没看明白呢
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

1303890452@qq.c

19

主题

720

帖子

808

金币

传奇

Rank: 8Rank: 8

积分
5313

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
10#
发表于 2016-11-19 14:43:54 | 只看该作者

   经典图书
楼主辛苦了！
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

a2175490

0

主题

9

帖子

21

金币

天使

Rank: 2Rank: 2

积分
69

最佳新人
11#
发表于 2017-1-1 16:48:39 | 只看该作者
明白你的意思，但是不会解决
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

fclfta

1

主题

260

帖子

49

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1069

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
12#
发表于 2017-1-15 21:41:54 | 只看该作者
感谢楼主分享，很不错！
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

tiancaishouzhu

0

主题

18

帖子

15

金币

天使

Rank: 2Rank: 2

积分
78

最佳新人
13#
发表于 2017-4-19 16:44:22 | 只看该作者
活到老学到老！
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

1964428766

0

主题

270

帖子

21

金币

堂主

Rank: 4

积分
802

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
14#
发表于 2017-5-22 16:43:35 | 只看该作者
非常感谢你的回复.我运行了一下,08代码行提示出错了
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

SOLIDWORKS 2023 机械设计从入门到精通

手机版|小黑屋| GMT+8, 2025-6-3 07:11 , Processed in 0.199668 second(s), 28 queries , Memcache On.

SolidWorks机械工程师网 ( 鲁ICP备14025122号-2 ) 鲁公网安备 37028502190335号

声明：本网言论纯属发表者个人意见，与本网立场无关。
如涉版权，可发邮件： admin@swbbsc.com

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