标题: 关于一键转X-T图档宏的问题 [打印本页] 作者: exie 时间: 2013-11-25 13:57 标题: 关于一键转X-T图档宏的问题 这样的一段代码怎么写，求指点：转档成X-T时,保存的文件名为提取Description当中的字符，如果Description当中没有字符，则以原文档名称保存。
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Locatie As String
Dim Locatie_aangepast As String
Dim OpenDoc As Object
Dim Extensie_nieuw As String
Dim Extensie_oud As String
Dim retval As String
Dim Naam As String
Dim Naam_aangepast As String
Sub main()
Set swApp = CreateObject("SldWorks.Application")
Set swModel = swApp.ActiveDoc
Set OpenDoc = swApp.ActiveDoc()
Extensie_oud = ".SLDPRT"
Extensie_nieuw = ".x_t"
Locatie = OpenDoc.GetPathName
Locatie_aangepast = Left(Locatie, Len(Locatie) - 7)
retval = Dir$(Locatie_aangepast & Extensie_oud)
Naam = Dir$(Locatie)
Naam_aangepast = Left(Naam, Len(Naam) - 7)
Titel = OpenDoc.GetTitle
Titel = Left(Titel, (Len(Titel)))作者: xiange007 时间: 2013-11-25 14:04
自己来顶一下，等高人