SaveAsSVG方法示例
2015-12-15 22:24:20 来源： 评论：0 点击：
下列示例打开文档TestPicture，并将其保存为TestPicture svg。Private Sub Commandbutton1_Click()Dim iDoc As CFixFileLinkSet iDoc = Application Documents open("C:Program FilesProficyProficy i
下列示例打开文档TestPicture，并将其保存为TestPicture.svg。
Private Sub Commandbutton1_Click()
Dim iDoc As CFixFileLink
Set iDoc = Application.Documents.open("C:Program FilesProficyProficy iFIXpictestpicture.grf")
Application.Documents.SaveAsSVG "C:Program FilesProficyProficy iFixpicTestPicture.svg", iDoc
End Sub