巧用api提升钣金设计装配 4 - 展开导出为DXF

API支持钣金展开导出为DXF文件。帮助文档有个小例子，而且列出了目前支持的 导出选项。

iLogic里使用，代码如下。这里假定我们定义了多个用户参数，用来表示DXF选项，这样可以用一个iLogic对话框让用户配置选项。

Imports System.Windows.Forms

'弹出文件保存对话框
oFileDialog =  New SaveFileDialog()
oFileDialog.Filter = "DXF file (*.dxf)|*.dxf"
result = oFileDialog.ShowDialog()

If result = DialogResult.OK Then  
   '保存文件名
    oDXFfileNAME = oFileDialog.FileName
	
    doc = ThisDoc.Document
	'文档定义
	oDef =  doc.ComponentDefinition
	'文档定义的输入输出接口
	oDataIO = oDef.DataIO
 
    'DXF导出的格式字串
	 sOut = "FLAT PATTERN DXF?AcadVersion=" + AutoCADVer _
        + "&OuterProfileLayer=" + 展开外轮廓层名 _
		+ "&OuterProfileLayerColor=" + 展开内轮廓层颜色 _
        + "&InteriorProfilesLayer=" + 展开内轮廓层名 _       
		+ "&InteriorProfilesLayerColor=" + 展开外轮廓层颜色 _       
        + "&InvisibleLayers="+ InvisibleLayers _'IV_TANGENT;IV_BEND;IV_BEND_DOWN;IV_TOOL_CENTER;IV_TOOL_CENTER_DOWN;IV_ARC_CENTERS"
        + "&BendUpLayer=" + 向上折弯层名 _ 'BEND_UP&BendUpLayerColor=255;0;255&BendUpLayerLineType=37634" _
		+ "&BendUpLayerColor=" + 向上折弯层颜色 _
        + "&BendDownLayer="+ 向下折弯层名 _
		+ "&BendDownLayerColor="+ 向下折弯层颜色' BEND_DOWN&BendDownLayerColor=255;255;0&BendDownLayerLineType=37634" _
         
		 '导出为DXF
		 oDataIO.WriteDataToFile( sOut, oDXFfileNAME)
Else
  MsgBox("请选择DXF保存路径！")    
End If