| |
>ｉｄｗのデータを一括でｄｘｆに変換できる
>ソフトをご存知の方居られませんか？
そのようなソフトがあるかどうか私は知らないです。
私は IDW完了時 dwg、dxfを出力するように癖をつけてます。
Sub ActiveDrawingDocumentSave()
Dim oDoc As Inventor.Document
Dim fs As Object
Dim filename As String
Dim fullpath As String
Dim Target As String
Dim DefaultPath As String
DefaultPath = "Z:\図面"
Set oDoc = ThisApplication.ActiveDocument
If (oDoc.DocumentType <> kDrawingDocumentObject) Then
MsgBox "エラー:ドキュメント タイプが、図面ではありません。"
Set oDoc = Nothing
Exit Sub
End If
oDoc.Save
Set fs = CreateObject("Scripting.FileSystemObject")
fullpath = oDoc.FullFileName
filename = fs.GetFileName(fullpath)
Target = DefaultPath & "\dxf\" & Left$(filename, Len(filename) - 3) & "dxf"
Call ThisApplication.CommandManager.PostPrivateEvent(kFileNameEvent, Target)
Call ThisApplication.CommandManager.StartCommand(kFileSaveCopyAsCommand)
DoEvents
Target = DefaultPath & "\dwg\" & Left$(filename, Len(filename) - 3) & "dwg"
Call ThisApplication.CommandManager.PostPrivateEvent(kFileNameEvent, Target)
Call ThisApplication.CommandManager.StartCommand(kFileSaveCopyAsCommand)
DoEvents
Target = DefaultPath & "\dwf\" & Left$(filename, Len(filename) - 3) & "dwf"
Call ThisApplication.CommandManager.PostPrivateEvent(kFileNameEvent, Target)
Call ThisApplication.CommandManager.StartCommand(kFileSaveCopyAsCommand)
DoEvents
Set oDoc = Nothing
Set fs = Nothing
End Sub
|
|
