Inventorの部屋

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

iLogic - 三面図一括配置

表題欄一括削除

表題欄を一括削除します。

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

  
  If ThisDoc.Document.DocumentType <> kDrawingDocumentObject Then
      MessageBox.Show("図面ファイルで実行してください。", "エラー")
      Return
  End If
  
  Dim oDrawDoc As DrawingDocument
  oDrawDoc = ThisDoc.Document
  
  For Each oSheet As Sheet In oDrawDoc.Sheets
      If Not oSheet.TitleBlock Is Nothing Then
          oSheet.TitleBlock.Delete()
      End If
  Next
  

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


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