重命名&独立

神秘的东大大 · 发表于 2024-6-27 23:33:39

经典图书

因为工作经常需要独立零件出来修改。找到的独立在轻化时总是报错。重命名宏可以在轻化和压缩都能使用，并且能提前判断，所以想把这两个宏结合了一下。经过尝试目前可以正常使用。本人能力有限，没有系统学习过，有任何bug请自行调整

（宏使用是需要添加excel的引用）

补充内容 (2024-9-15 00:59):
增加了图号分离。

补充内容 (2024-9-15 01:01):
可同时给工程图重命名及独立。

神秘的东大大 · 发表于 2024-7-2 03:43:42

更新判断上层装配体是否只读。

神秘的东大大 · 发表于 2024-9-15 00:55:54

经典图书

增加图号分离（代号+空格+名称）

神秘的东大大 · 发表于 2024-6-27 23:40:16

目前有一个功能，不知都怎么实现。因为工作中在使用PDM系统管理图纸，因此装配体可能没有检出，无修改权限。这个时候想做一个判断，比如我选择了零件1，这个时候我需要判断零件1的上层装配体1，以及顶层的装配体2，判断者两个文件的是否只读。当者两个文件只读时，做出提示，只有这两个文件都不是只读时，才可以重命名和独立操作。目前不知道怎么去寻找顶层装配体的路径。哪位大佬可以帮忙改一下啊

radiation110 · 发表于 2024-6-28 08:59:38

经典案例图书

顶一下，坐等高手！

随遇而安9528 · 发表于 2024-6-28 09:00:57

感谢楼主分享，很不错！

沉默的人 · 发表于 2024-6-28 09:53:45

经典案例图书

顶一下，坐等高手！

doszmw · 发表于 2024-6-28 11:14:07

楼上正解，顶一下！

guo_li · 发表于 2024-6-28 11:58:47

感谢楼主分享，很不错！

wetiuer · 发表于 2024-6-28 12:51:48

经典图书

神秘的东大大发表于 2024-6-27 23:40
目前有一个功能，不知都怎么实现。因为工作中在使用PDM系统管理图纸，因此装配体可能没有检出，无修改权限 ...

寻找父项：SolidWorks.Interop.sldworks Namespace > IComponent2 Inte**ce : GetParent Method (IComponent2)

神秘的东大大 · 发表于 2024-6-28 15:19:39

wetiuer 发表于 2024-6-28 12:51
寻找父项：SolidWorks.Interop.sldworks Namespace > IComponent2 Inte**ce : GetParent Method (ICompon ...

菜鸡表示看不懂

，大佬能帮写详细一点吗？

qqfly332211 · 发表于 2024-6-28 16:09:18

感谢楼主分享，很不错！

董东咚 · 发表于 2024-6-28 17:16:38

楼主辛苦了！

3869 · 发表于 2024-6-29 08:17:30

感谢楼主分享，很不错！

wetiuer · 发表于 2024-6-29 22:13:59

加入QQ群
参与讨论和学习

或扫描二维码加入

神秘的东大大发表于 2024-6-28 15:19
菜鸡表示看不懂，大佬能帮写详细一点吗？

这个方法介绍的下面有实例，比如：Get Parent Component Example (VBA)

wetiuer · 发表于 2024-6-29 22:14:36

经典案例图书

神秘的东大大发表于 2024-6-28 15:19
菜鸡表示看不懂，大佬能帮写详细一点吗？

有实例，比如：Get Parent Component Example (VBA)

wg1266 · 发表于 2024-6-29 22:20:53

加入QQ群
参与讨论和学习

或扫描二维码加入

顶一下，坐等高手！

Yemao丶 · 发表于 2024-6-30 17:46:54

经典案例图书

感谢分享。

神秘的东大大 · 发表于 2024-7-1 10:14:25

wetiuer 发表于 2024-6-29 22:14
有实例，比如：Get Parent Component Example (VBA)

感谢大佬，已解决，可以判断上层装配体是否只读了。

沉默的人 · 发表于 2024-7-1 11:46:24

神秘的东大大发表于 2024-7-1 10:14
感谢大佬，已解决，可以判断上层装配体是否只读了。

大佬怎么解决的分享一下谢谢

神秘的东大大 · 发表于 2024-7-1 12:00:08

按图片里面的修改就可以了

神秘的东大大 · 发表于 2024-7-1 12:01:49

神秘的东大大发表于 2024-7-1 12:00
按图片里面的修改就可以了

'上层文件是否只读
Dim swConfigMgr As SldWorks.ConfigurationManager
Dim swConf As SldWorks.Configuration
Dim swParentComp As SldWorks.Component2
Dim bRet As Boolean
Set swapp = Application.SldWorks
Set swModel = swapp.ActiveDoc
Set swSelMgr = swModel.SelectionManager
Set swComp = swSelMgr.GetSelectedObjectsComponent4(1, -1)
Set swParentComp = swComp.GetParent

If Nothing Is swParentComp Then
      Set swConfigMgr = swModel.ConfigurationManager
      Set swConf = swConfigMgr.ActiveConfiguration
      Set swParentComp = swConf.GetRootComponent3(True)
End If

'filePath = swComp.GetPathName
'filePath = swModel.GetPathName
FileAttrPath = swParentComp.GetPathName
'MsgBox FileAttrPath
DocPathSplit = Split(swParentComp.GetPathName, "\")  '分割
txttype = DocPathSplit(UBound(DocPathSplit))
txttype = Left(txttype, Len(txttype) - 7) '排除后缀
txttype = "选中部件的上层文件" + " " + txttype + " "
FileAttribute  '判断文件是否只读
If Label2 = txttype + "文件未检出,无法重命名,请检出!" Then
CommandButton2.Enabled = False
Exit Function
End If

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

重命名&独立

浏览过的版块

最佳新人

活跃会员

热心会员

宣传达人

灌水之王

突出贡献