找回密码 注册 QQ登录
一站式解决方案

iCAx开思网

CAD/CAM/CAE/设计/模具 高清视频【积分说明】如何快速获得积分?快速3D打印 手板模型CNC加工服务在线3D打印服务,上传模型,自动报价
查看: 5209|回复: 8
打印 上一主题 下一主题

[求助] 求图号名称分离宏添加新代码

[复制链接]
跳转到指定楼层
1
发表于 2018-2-24 16:12:20 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多同行朋友,交流,分享,学习。

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

x
图号名称分离宏(配置属性内)在用到常驻宏时打开工程图会报错,盼能在以下代码中添加如果是工程图就退出的代码,谢谢。
  1. '定义变数名称

  2. Dim S1                 As Integer
  3. Dim S2                 As Integer
  4. Dim Path_Name          As String
  5. Dim Code_Name_C        As String
  6. Dim Code_              As String
  7. Dim Name_              As String
  8. Dim strmat             As String
  9. Dim Part               As Object
  10. Dim swApp              As SldWorks.SldWorks
  11. Dim swModelDoc         As SldWorks.ModelDoc2
  12. Dim swConfig           As SldWorks.Configuration
  13. Dim CustPrOPMgr      As SldWorks.CustomPropertyManager
  14. Dim swModel            As SldWorks.ModelDoc2

  15. Sub main()
  16. Set swApp = Application.SldWorks
  17. Set swModelDoc = swApp.ActiveDoc
  18. Set swConfig = swModelDoc.ConfigurationManager.ActiveConfiguration
  19. Set swModel = swApp.ActiveDoc
  20. Set CustPropMgr = swModel.Extension.CustomPropertyManager(swModel.ConfigurationManager.ActiveConfiguration.Name) '配置特定的延伸设定

  21. '设定变量
  22. Path_Name = swApp.ActiveDoc.GetPathName '取得"路径名称及扩展名",不管扩展名是否隐藏
  23. S1 = InStrRev(Path_Name, "") '\符号在路径的最后位置数
  24. Code_Name_C = Right(Path_Name, Len(Path_Name) - S1) '取得"件号 名称.扩展名"
  25. S2 = InStr(Code_Name_C, " ") '符号在"件号 名称 扩展名"的位置数
  26. Code_ = Left(Code_Name_C, S2 - 1) '取得"件号"
  27. Name_ = Mid(Code_Name_C, S2 + 1, Len(Code_Name_C) - S2 - 7) '取得“名称”
  28. strmat = Chr(34) + Trim("SW-Material" + "@@") + "@" + Code_Name_C + Chr(34) '材料属性

  29. '删除栏
  30. CustPropMgr.Delete ("代号")
  31. CustPropMgr.Delete ("名称")
  32. CustPropMgr.Delete ("材料")

  33. '新增
  34. CustPropMgr.Add2 "代号", swCustomInfoText, Code_
  35. CustPropMgr.Add2 "名称", swCustomInfoText, Name_
  36. CustPropMgr.Add2 "数量", swCustomInfoText, " "
  37. CustPropMgr.Add2 "材料", swCustomInfoText, strmat
  38. CustPropMgr.Add2 "单重", swCustomInfoText, " "
  39. CustPropMgr.Add2 "总重", swCustomInfoText, " "
  40. CustPropMgr.Add2 "备注", swCustomInfoText, " "

  41. End Sub
复制代码

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏2 分享淘帖 赞一下!赞一下!
推荐
发表于 2018-5-13 16:17:28 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

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

x
2
发表于 2018-2-24 16:52:52 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

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

x
3
发表于 2018-2-24 18:54:45 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

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

x
4
 楼主| 发表于 2018-2-25 08:09:33 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

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

x
5
发表于 2018-2-27 06:53:58 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

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

x
7
 楼主| 发表于 2018-5-14 13:52:52 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

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

x
8
发表于 2018-7-17 17:35:00 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

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

x
9
发表于 2020-12-23 22:27:55 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

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

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

本版积分规则

3D打印手板模型快速制作服务,在线报价下单!

QQ 咨询|手机版|联系我们|iCAx开思网  

GMT+8, 2024-11-5 02:20 , Processed in 0.030630 second(s), 12 queries , Gzip On, Redis On.

Powered by Discuz! X3.3

© 2002-2024 www.iCAx.org

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