简单编程 之 解决SW文件转换之苦

     上一篇，简单编程，解决工程图、材料明细表填写之苦后。朋友又提出一个功能需求， 这次，朋友果然问对了问题。(其实,这就是DS一直所说的，如果你问对了问题，你就会改变世界)

大家都知道, 钣金行业, 是需要冲床编程的,那么,就需要一个展开的DXF或者dwg文件,1:1,给冲床去编程使用；那么，朋友每次都要出1:1的图，另存非常麻烦。 这个问题具体怎么解决呢？

需求分析如下:

• 1、需要输出1:1dwg文件;
• 2、需要输出到零件同目录下,与文件名相同;
• 3、解决了;

那么，我们看看代码。其实，非常简单，几行即可。如下:

得到文件路径
FilePath = swModel.GetPathName
PathSize = Strings.Len(FilePath)
PathNoExtension = Strings.Left(FilePath, PathSize - 6)
NewFilePath = PathNoExtension & ".dwg"

导出平板模式,到这个路径下,这个文件名。
bRet = swModel.ExportFlatPatternView(NewFilePath, 1)

此时,我们在打开零件的情况下,执行程序,可在3秒后,得到如下图所示结果。