Inventorの部屋

iLogicによる設計の自動化などで作業効率化を図ります。

iLogic - 三面図一括配置

図面枠一括削除

図面枠を一括削除します。

• １．複数の設計ファイルで同じ自動化ルールを実行できるように外部ルールで作成します。
  iLogicブラウザの外部ルールで追加したフォルダを右クリックして[新しい外部ルールを作成]をクリック。
  
  
• ２．任意の名前を入力して[保存]をクリック。
  
  
• ３．下記コードを入力して[保存]をクリック。

  
  Sub Main()
      Dim oDrawingDoc As DrawingDocument
      oDrawingDoc = ThisApplication.ActiveDocument
      
      If oDrawingDoc.DocumentType <> kDrawingDocumentObject Then
          MessageBox.Show("図面ドキュメントを開いてください。", "エラー")
          Exit Sub
      End If
  
      Dim oTransaction As Transaction
      oTransaction = ThisApplication.TransactionManager.StartTransaction(oDrawingDoc, "図面枠削除")
      
      Try
          Dim deletedCount As Integer = 0
          
          For Each oSheet As Sheet In oDrawingDoc.Sheets
              If Not oSheet.Border Is Nothing Then
                  oSheet.Border.Delete()
                  deletedCount += 1
              End If
          Next
          
          oTransaction.End()
          
      Catch ex As Exception
          oTransaction.Abort()
          MessageBox.Show("エラーが発生しました: " & ex.Message, "エラー")
      End Try
  End Sub
  

  
  作成した外部ルールをリボンやショートカットに登録しておくと便利です。


• ４． 作成したルールを右クリックして[ルールを実行]をクリックすると図面枠が一括削除されます。