srose99
Mechanical
- Jun 24, 2014
- 9
I am trying to export a NX drafting file to a dxf format by using a journal. The journal function works but if the drawing is scaled how do I change the journal to make it 1:1? The new dxf will be used by other departments for measurments and should be 1:1.
Below is part of the code I changed that will scale the dxf but only if the drawing was 1:2.
What can I replace for the factor of 2 in order for this to work on any scaled drawing sheet?
Sub ExportCGM(ByVal dwg As Drawings.DrawingSheet, ByVal outputFile As String, ByVal units As Integer)
Dim filenames1(0) As String
Dim objCGM As CGMBuilder
objCGM = theSession.Parts.Work.PlotManager.CreateCgmBuilder()
objCGM.Action = CGMBuilder.ActionOption.FileBrowser
objCGM.Size = CGMBuilder.SizeOption.ScaleFactor
objCGM.Scale = 2
Below is part of the code I changed that will scale the dxf but only if the drawing was 1:2.
What can I replace for the factor of 2 in order for this to work on any scaled drawing sheet?
Sub ExportCGM(ByVal dwg As Drawings.DrawingSheet, ByVal outputFile As String, ByVal units As Integer)
Dim filenames1(0) As String
Dim objCGM As CGMBuilder
objCGM = theSession.Parts.Work.PlotManager.CreateCgmBuilder()
objCGM.Action = CGMBuilder.ActionOption.FileBrowser
objCGM.Size = CGMBuilder.SizeOption.ScaleFactor
objCGM.Scale = 2