Problème récurrent vue de mise en plan en qualité ébauche

Out of category
21

Salut, j'ai un petit bout de code qui remet toutes les vues en "haute qualité". 

Si ca peut aider. 

'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 « J'aime »
22

Bonjour,

J'ai eu le même problème avec une mise en plan d'un gros assemblage qui me donnais des vues vides à l'export vers dwg ou dxf

J'ai trouvé la pièce qui mettait la bazar en exportant l'assemblages en iges et en le reconstituant à partir de l'iges

A ce moment là, j'ai eu un message indiquant qu'une certaine pièce posait problème.

Je l'ai refaite et réintégrée dans l'assemblage d'origine

Et là l'export dwg à fonctionné correctement !

Je pense que de cette façon on peut trouver le lézard dans un gros assemblage sans se prendre la tête !?

Cordialement