fonction trancher en script ?

braabu
Nouveau
24 Avril 2016
35
  • Auteur de la discussion
  • #1
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
Compagnon
4 Septembre 2009
5 267
Près de St Etienne (42)
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

Code:
'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
Nouveau
24 Avril 2016
35
  • Auteur de la discussion
  • #3
merci !!!! ( encore !! )

je peux aller dormir sereinement !!

je bosse dessus demain !

merci merci !
 
La dernière réponse à ce sujet date de plus de 6 mois
Haut