fonction trancher en script ?

[braabu]

bonjour !

l'un de vous aurait il un exemple d'utilisation dans un script de la fonction planeslice ( edition > surface > trancher en x,y ou z )

merci d'avance !!

braabu

 

[dh42]

Salut,

sélectionne une ou plusieurs surfaces 3D avant de lancer le script.

ici le plan de coupe est a +5mm et le tranchage se fait sur l'axe Z

'PlaneSlice  dh42 2016

    Sub main()

        Dim su As Surface
        Dim pl() As Polyline 'un tableau de polylignes

        For Each ent As entity In view.SelectedEntities

            If TypeOf ent Is Surface Then
                su = ent
                pl = su.PlaneSlice("Z", 5.0)
                addslice(pl)
            End If
        Next

    End Sub

    Sub addslice(pl_array() As Polyline)

        'ajouter les polyligne au dessin.
        For Each p As polyline In pl_array
            doc.add(p)
        Next

    End Sub

les polylignes résultantes doivent ensuite être jointes.

++
David

 

[braabu]

merci !!!! ( encore !! )

je peux aller dormir sereinement !!

je bosse dessus demain !

merci merci !