Your Products have been synced, click here to refresh
' Dim something --------------------------- Dim App As Object Set App = CreateObject("PCDLRN.Application") Dim Part As Object Set Part = App.ActivePartProgram Dim retVal As Boolean ' Do --------------------------- retVal = Part.Export("C:\Users\QS\Desktop\Test123.dxf") If retVal Then App.StatusBar = "DXF: ok" Else App.StatusBar = "DXF: fail" End If ' unDim something --------------------------- Set Part = Nothing Set App = Nothing
' Dim something --------------------------- Dim App As Object Set App = CreateObject("PCDLRN.Application") Dim Part As Object Set Part = App.ActivePartProgram Dim retVal As Boolean ' Do --------------------------- retVal = Part.Export("C:\Users\QS\Desktop\Test123.dxf") If retVal Then App.StatusBar = "DXF: ok" Else App.StatusBar = "DXF: fail" End If ' unDim something --------------------------- Set Part = Nothing Set App = Nothing
© 2024 Hexagon AB and/or its subsidiaries. | Privacy Policy | Cloud Services Agreement |