在IDW环境下，如何使用代码批量修改浏览器树节点名，关联主视图模型零件代号&描述

[442780782]

@王承之pmhker 王老师有空帮忙分析下，谢谢！

[王承之pmhker · Accepted solution]

个人不建议这种把全部图纸出在一个工程图文件的方式

对于你的需求可以试试这段

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

[442780782]

感谢！