Powtarzający się problem z widokiem rysunku w jakości roboczej

Out of category
21

Cześć, mam trochę kodu, który przywraca wszystkie widoki w "wysokiej jakości". 

Jeśli to pomoże. 

'met les vues en haute qualité

    Dim swView As SldWorks.View
    Dim bRet As Boolean
    Set swApp = Application.SldWorks
    Set swDraw = swApp.ActiveDoc
    Set swSheet = swDraw.GetCurrentSheet
    Set swView = swDraw.GetFirstView
    While Not swView Is Nothing
        If swSheet.GetName <> swView.Name Then
            ' Does not work on drawing sheet, which IDrawingDoc::GetFirstView returns
            bRet = swView.SetDisplayMode3(False, swView.GetDisplayMode2, False, True): Debug.Assert bRet
        End If
        Set swView = swView.GetNextView
    Wend

 

1 polubienie
22

Witam

Miałem ten sam problem z rysunkiem dużego zespołu, który dawał mi puste widoki podczas eksportu do dwg lub dxf

Znalazłem część, która narobiła bałaganu, eksportując zespół w formacie iges i odtwarzając go z iges

W tym czasie dostałem wiadomość, że pewna część sprawia problemy.

Przerobiłem go i ponownie zintegrowałem z oryginalnym zespołem

I tam eksport dwg działał poprawnie!

Myślę, że w ten sposób możesz znaleźć jaszczurkę w dużym zgromadzeniu, nie martwiąc się o to!?

Pozdrowienia