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

最新推荐文章于 2021-01-01 22:06:24 发布

原创

最新推荐文章于 2021-01-01 22:06:24 发布 · 2.1k 阅读

1 ·

CC 4.0 BY-SA版权

本文介绍了如何通过iLogic结合Inventor API来获取工程图视图的比例，并将这些比例信息写入iProperties，以满足特定需求。此方法适用于需要自定义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