For the most part, this code works great, but every now and then, I get a file where the part is invisible in the view.
The sheet is there, the view is there, the part is there, because when I run my mouse over the view the edges highlight in red and disapear again as I move off.
Before this sheet and view is created, I had created another sheet with 3 drawing views : swDraw.Create3rdAngleViews2(swModel.GetPathName) These drawing views (same part, same file), show up fine.
Anyone have a clue what might be going on here?
Thanks - Sean
Private Sub Add_OneToOneSheet(ByVal ParentName As String, _ ByVal ActvCnfgNm As String) On Error GoTo Err_Add_OneToOneSheet
Dim swMyModel As ModelDoc2 Dim swMyDrwng As DrawingDoc Dim swMySheet As Sheet Dim swMyView As View
Dim vntParSz, vntDwgSz As Variant Dim intDwgSize As Integer Dim blnRet As Boolean Dim sngXLoca, sngYLoca As Single
Set swMyModel = swApp.ActiveDoc Set swMyDrwng = swMyModel
'This is a function that returns my part size, which is stored in a table (working correctly) vntParSz = GetPrtSz_FrmTable(ParentName, ActvCnfgNm) 'This is a function that returns the correct sheet size in relation to my part size(working correctly) vntDwgSz = GetPaperSize(vntParSz(0), vntParSz(1)) intDwgSize = vntDwgSz(0)
If intDwgSize >= 0 Then sngXLoca = Inch_to_Meter(vntDwgSz(1) / 2) sngYLoca = Inch_to_Meter(vntDwgSz(2) / 2) 'Create new sheet blnRet = swMyDrwng.NewSheet2("FullSizeView", intDwgSize, _ intDwgSize, 1, 1, False, "", 0, 0) Set swMySheet = swMyDrwng.GetCurrentSheet 'No sheet format swMySheet.SheetFormatVisible = False Set swMyView = swMyDrwng.CreateDrawViewFromModelView2(ParentName, "Current Model View", _ sngXLoca, sngYLoca, 0) swMyView.SetDisplayTangentEdges2 2 Else Exit Sub 'Part is to large to display 1:1 on any paper size End If
Exit_Add_OneToOneSheet: Set swMyModel = Nothing Set swMyDrwng = Nothing Set swMySheet = Nothing Set swMyView = Nothing Exit Sub Err_Add_OneToOneSheet: MsgBox Err.Description, , "cslSW_SLDDRW - Add_OneToOneSheet" Resume Exit_Add_OneToOneSheet End Sub