[문의] Inventor 도면을 손쉽게 일괄 PDF 로 내보내는 방법이 있을까요?

[손광호]

안녕하세요.

인벤터 도면 작업 이후 해당 도면들을 폴더를 선택해서 일괄 PDF 로 쉽게 바꾸는 방법이 있을까요?

작업 스케줄러의 인쇄를 사용하면 각 도면마다 이름을 저장하는 클릭을 하나하나씩해주어야되서

혹 기본 기능은 안될 수 있는데 IlOGIC으로 가능한 소스 있으면 조언 부탁 드립니다.

클릭 없이 한번에~ 

[cjfgns1003 · Accepted solution]

제가 사용하고있는 iLogic 입니다.

확장자를 바꾸면 dwg로도 가능 합니다.

Sub Main
	If ThisDoc.Document.DocumentType <> DocumentTypeEnum.kDrawingDocumentObject Then
		MsgBox("This Rule only works on Drawing Documents.  Exiting Rule.", vbExclamation, "iLogic")
		Exit Sub
	End If
	Dim oDDoc As DrawingDocument = ThisDoc.Document
	Dim sPathAndName As String = System.IO.Path.ChangeExtension(oDDoc.FullFileName, vbNullString)
	Dim sRev As String = oDDoc.PropertySets.Item(1).Item("Revision Number").Value
	Dim sDesc As String = oDDoc.PropertySets.Item(3).Item("Description").Value
	Dim sNewFullName As String = sPathAndName & "_" &"Rev."& sRev & " (" & iProperties.Value("Project", "Description") & ").pdf"
	ExportToDWG(oDDoc, sNewFullName)
End Sub

Sub ExportToDWG(oDrawing As DrawingDocument, sNewFullFileName As String)
	Dim oDWG As TranslatorAddIn
	oDWG = ThisApplication.ApplicationAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")
	Dim oTO As TransientObjects = ThisApplication.TransientObjects
	Dim oContext As TranslationContext = oTO.CreateTranslationContext
	oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
	Dim oOptions As NameValueMap = oTO.CreateNameValueMap
	Dim oDataMedium As DataMedium = oTO.CreateDataMedium
	If System.IO.File.Exists(sNewFullFileName) = True Then
		oAns = MsgBox("파일이 존재합니다." & vbCrLf &
		"덮어쓰시겠습니까?",vbYesNo + vbQuestion + vbDefaultButton2, "DWG가 이미 존재 합니다.")
		If oAns = vbNo Then Exit Sub
	End If
	oDataMedium.FileName = sNewFullFileName
	If oDWG.HasSaveCopyAsOptions(oDrawing, oContext, oOptions) Then
		oOptions.Value("Publish_All_Sheets") = 1 ' 0 = False, 1 = True
		oOptions.Value("All_Color_AS_Black") = 0 ' 0 = False, 1 = True
		oOptions.Value("Vector_Resolution") = 720 '150, 200, 400, 600, 720, 1200, 2400, 4800 ' DPI
		oOptions.Value("Remove_Line_Weights") = 0 ' 0 = False, 1 = True
		oOptions.Value("Launch_Viewer") = 1 ' 0 = False, 1 = True
	End If
	Try
		oDWG.SaveCopyAs(oDrawing, oContext, oOptions, oDataMedium)
	Catch E As Exception
		Logger.Error("Error using SaveCopyAs method." & vbCrLf & E.Message & vbCrLf & E.StackTrace)
	End Try
End Sub

[손광호]

제공해주신 내용대로 잘 변환 되네요..

혹 제가 원하는 건 폴더를 선택해서 여러 장의 인벤터 도면을 한번에 PDF로 바꾸고자 한는데

상기 소스를 좀 변경하면 가능할지?

방법이 있으면 댓글 부탁 드립니다.

[leetg2 · Accepted solution]

외부 프로그램인 Drawing porter는 사용 안하시나요?
변환 속도가 조금 느리긴 한데, 나름 편하게 쓸 수 있습니다.

[손광호]

방금 설치해봤는데 원하는대로 잘되네요.

pdf export 할 때 매번 파일명을 물어보는 내용으로 많이 불편해 했는데

해당 프로그램의 export 기능을 사용하면 되네요

감사합니다.