社区
个人不建议这种把全部图纸出在一个工程图文件的方式
对于你的需求可以试试这段
oDoc = ThisDoc.Document.Sheets ' 获工程图中所有的图纸
For Each sheet In oDoc ' 遍历所有的图纸,修改图纸名
sheetName = Sheet.Name
MsgBox(sheetName,,"ilogic")' 获取遍历时,当前的图纸名
ActiveSheet = ThisDrawing.Sheet(sheetName) ' 将当前图纸激活
viewCount = ThisDrawing.Document.ActiveSheet.DrawingViews.Count ' 获取当前图纸的视图数量
If (viewCount <> 0) Then ' 如果数量不为零,则表示有模型
viewName = ThisDrawing.Document.ActiveSheet.DrawingViews(1).Name ' 获取主视图的名称
零件代号 = IO.Path.GetFileName(ActiveSheet.View(viewName).ModelDocument.PropertySets("Design Tracking Properties").Item("Part Number").Value) ' 获取主视图模型的图号
描述 = IO.Path.GetFileName(ActiveSheet.View(viewName).ModelDocument.PropertySets("Design Tracking Properties").Item("Description").Value) ' 获取主视图模型的描述
Sheet.Name = 零件代号 & "-" & 描述 ' 将图纸名改为主视图模型图号 + 描述
End If
Next Sheet
If my post answers your question, please click the "Accept as Solution" button. This helps everyone find answers more quickly!
如果我的回帖解决了您的问题,请点击 "接受为解决方案" 按钮. 这可以帮助其他人更快的找到解决方案!
王 承之
Autodesk AGN [Inventor 俱乐部] Leader
Inventor Club | Bilibili