automatically create a second sheet processing

[S_May]

Hello together,

is it possible to automatically create a second sheet processing next to the drawing with ilogic?

[bradeneuropeArthur]

I think not.
What about printing the sheet etc?

[S_May]

we would need in the company the sheet metal next to the sheet only for the laser

[bradeneuropeArthur]

Why do you need a border and header than?

You or not printing or exporting!

[dgreatice]

You title change become how to export to DWG/DXF with scale 1 : 1 to Model View at AutoCAD.

[S_May]

1. idw save => second processing automatically next to the sheet (trigger of ilogic is the save)
2. jobserver automatically generates dxf
3. dxf are needed for lasers
   
4. We then do this automatically at 75,000 idw in the system (PDM PROFILE)

[bradeneuropeArthur]

Why don't you use the dxf file of the sheet metal part themselves. It is easier to create dxf file of the sheet metal part *.ipt by jobserver.

If help needed please let me know

[Jon.Dean]

Hi @S_May,

When you create a flat pattern of your sheetmetal part, you can right click on the flat pattern view and select "Export face as...".

This allows you to create a DXF file of just the flat pattern and does not include the drawing border and title block.

If you are sending to a laser cutter, then this method would seem to be a better method.

Cheers

Jon.

[S_May · Accepted solution]

Hi @Jon.Dean,

the dxf are generated by the PDM system (not by hand)
Here is the code that creates the second flat sheet next to the sheet.

Sub CreateFlatPatternView()
' Set a reference to the drawing document.
' This assumes a drawing document is active.
Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument
'Set a reference to the active sheet.
Dim oSheet As Sheet
Set oSheet = oDrawDoc.ActiveSheet
Dim tmpView As DrawingView
For Each tmpView In oSheet.DrawingViews
If tmpView.Name = "LASER" Then
MsgBox ("Ansicht LASER existiert bereits. Code wird verlassen.")
Exit Sub
End If
Next
' Create a new NameValueMap object
Dim oBaseViewOptions As NameValueMap
Set oBaseViewOptions = ThisApplication.TransientObjects.CreateNameValueMap
' Set the options to use when creating the base view.
Call oBaseViewOptions.Add("SheetMetalFoldedModel", False)
' Open the sheet metal document invisibly
Dim oModel As Document
Set oModel = oSheet.DrawingViews.Item(1).ReferencedDocumentDescriptor.ReferencedDocument 'ThisApplication.Documents.Open("C:\temp\SheetMetal.ipt", False)
' Create the placement point object.
Dim oPoint As Point2d
Set oPoint = ThisApplication.TransientGeometry.CreatePoint2d(oSheet.Width + 10, oSheet.Height / 2)
' Create a base view.
Dim oBaseView As DrawingView
Set oBaseView = oSheet.DrawingViews.AddBaseView(oModel, oPoint, 1, _
kDefaultViewOrientation, kHiddenLineRemovedDrawingViewStyle, _
, , oBaseViewOptions)
oBaseView.Name = "LASER"
End Sub

Ein Danke an @Dennis.Ossadnik

[bradeneuropeArthur]

Hi,

Misunderstood.

You needed a second DRAWING VIEW next to your sheet!

No second SHEET!

you wrote:

is it possible to automatically create a second sheet.........

Good to know that it is solved

[S_May]

oh sorry

[dgreatice]

or maybe.

create DrawingView (Folded) with new sheet