获取工程图每个视图的比例，写入iProperties

前几天有客户需要用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没这方面的封装函数
      '使用Ｉｎｖｅｎｔｏｒ　ＡＰＩ
      
       Dim oPropertyName As String
       oPropertyName = oSheetName + oViewName
       
       Dim pEachScale As [Property]
         Try
             '若该iProperty已经存在，则直接修改其值
             
             pEachScale = oDrawingDoc.PropertySets.Item("User Defined Properti