前几天有客户需要用iLogic获取视图比例,写入iProperties。而iLogic现有的封装函数不太够用,于是用Inventor API辅助,代码很简单。
Dim oDrawingDoc as DrawingDocument
oDrawingDoc = ThisDoc.Document
Dim oEachSheet As Sheet
For Each oEachSheet In oDrawingDoc.Sheets
'遍历每一张图纸
'图纸名
Dim oSheetName As String
oSheetName = oEachSheet.Name
Dim oEachView As DrawingView
For Each oEachView In oEachSheet.DrawingViews
'遍历每一个视图
'视图名
Dim oViewName As String
oViewName = oEachView.Name
'这里你是需要把每个视图的比例都写进自定义iProperty?
'**********************
'可先判断是否一个名为 图纸名 + 视图名 的自定义iProperty
'没则添加一个,并把比例写入
'iLogic没这方面的封装函数
'使用Inventor API
Dim oPropertyName As String
oPropertyName = oSheetName + oViewName