H2 iLogic 格式转换

[lucas_zhang_82]

在工作中，有时需要对大量的文档进行格式转换，这时要么自己一个个另存为，要么利用插件解决（有版本兼容问题），有无iLogic的代码能解决此问题呢

[lucas_zhang_82 · Accepted solution]

此处提供一种使用iLogic代码编制的 格式转换器，批量导出 dwg，dxf， pdf，jpg，png，tiff，igs，stp，x_t格式

界面如下

选择是需要导出的文档，然后选择文档（多种方式），选择导出格式，设置目录（默认为文档同目录），点击导出即可

[王承之pmhker]

卢卡斯把iLogic上升到了一个新高度。

[lynn_zhang]

@lucas_zhang_82 卢卡斯老师又来分享了，满满的干货，感谢！

[lucas_zhang_82 · Accepted solution]

版本更新，支持 2012以上版本（亲测），2012以下未知，增加PDF转出黑色设置

[lynn_zhang]

友情提醒：请根据内容马克正确的回复帖子为解决方案，其他评论如感谢和赞赏类的回复不是解决方案，请不要马克，谢谢大家的配合！

[lucas_zhang_82 · Accepted solution]

版本更新， 改变装配体下相关文件加载方式，可多层查询

修复一些小bug

[iwill9627]

卢卡斯请收下我的膝盖！

[lucas_zhang_82]

发布V1.3， 修复一些bug，增加一点小功能，这将是终极版本，需要其他什么细节功能，自行添加即可

[794005525]

批量导出成step的文件名称如何自动读取零件iProperty属性里的字段，有一段工程图自动转换为单个PDF并重命名的规则，但不知道怎么改进H2 iLogic 格式转换里面，烦请赐教。

'取模型的文件名
	        Dim Str As String	        
	        Str = s.DrawingViews.Item(1).ReferencedDocumentDescriptor.FullDocumentName	        
	        Str = Right(Str, Len(Str) -InStrRev(Str, "\"))
'拆分后工程图的命名方式，属性字段
      		ipro1 = iProperties.Value(Str,"Project", "Description")
			ipro2 = iProperties.Value(Str, "Project", "Part Number")
			ipro3 = iProperties.Value(Str, "Project", "Material")	
'新工程图文件名组成		
		Dim fname As String	
		fileName = ipro1 & ipro2
		
		oPath11 = "E:\项目文件(INVENTOR)\PDF"
		
      	fname = oPath11 & "/" &  fileName' & ".pdf "
           'Set the destination file name
    oDataMedium.FileName =fname &".pdf" ' & ".pdf " '   "c:\temp\test.pdf" 
    'Publish document.
Call PDFAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium)
num = num +1

[王承之pmhker]

与帖子主题不相关话题请另外单独发帖提问，谢谢