捡得有的博客oDef.RepresentationsManager.LevelOfDetailRepresentations.Item("详细等级1").Activate(True) 'Else oDef.RepresentationsManager.LevelOfDetailRepresentations.Item("主要").Activate(True) End If
捡得有的博客'此规则关闭每个定位特征和草图的可见性 '设置目标文档 oDoc = ThisApplication.ActiveEditDocument '设置工作平面可见性 For Each oWorkPlane In oDoc.ComponentDefinition.WorkPlanes oWorkPlane.Visible = ...
weixin_57217890的博客Sub splitName() Dim oDoc As Inventor.Document Set oDoc = ThisApplication.ActiveDocument '获取名称 Dim fName As String fName = Left(oDoc.DisplayName, Len(oDoc.DisplayName) - 4) 'Debug.Print fName '分离...