admin管理员组

文章数量:1574119

Sub CATMain()
''On Error Resume Next
Dim a(1000)
CATIA.DisplayFileAlerts = False
N = CATIA.Documents.Count

For i = 1 To N
Set odrw = CATIA.Documents.Item(i)
Set a(i) = odrw
Next


For i = 1 To N
Set odrw = a(i)
If TypeName(odrw) = "DrawingDocument" Then
opath = odrw.Path
oname = odrw.Name
oname = Left(oname, (Len(oname) - 11))
odrw.ExportData opath & "\" & oname & ".dwg", "dwg"
odrw.ExportData opath & "\" & oname & ".pdf", "pdf"
odrw.Close
End If
Next

End Sub

本文标签： 另存为文件CATIAPDFDWG

版权声明：本文标题：catia自动另存为.dwg和.pdf文件 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://m.elefans.com/dianzi/1727766368a1128510.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。