Salut tout le monde,

J'aurais besoin d'un script qui enlève les décimales quand la cotation tombe juste
ex cote 125.0 remplacer par 125

Merci phillip CAD ATLANTIQUE


By Antoine

Vive Rhino

Bonjour Antoine ;o)

Le plus simple pour faire tourner un script est de le copier dans la zone de commande d'un bouton, soit un bouton existant qui n'aurait pas de fonction pour le clique droit par exemple, ou un bouton créé pour l'occasion ( pour créer un bouton dans une barre d'outils il faut ouvrir une barre d'outils, la déplacer dans la zone de travail puis faire un clique droit sur la zone de titre de la barre, la zone bleue).

Donc pour créer le bouton, il faut poiroter sur le bouton avec la touche "shift" maintenue et un petit menu apparait, cliquer pour activer modifier... la fenêtre de configuration des boutons s'ouvre. Choisir une zone de commande et coller le script dans cette zone, l'instruction "!-_RunScript" permet a Rhino de comprendre que ce qui suit, entre parenthèse, est un script.

Donc pour le script en question il suffit de copier ce qui est au dessous et de le coller dans la zone de commande du bouton choisi tel quel.


!-_RunScript
(
Option Explicit
'Script written by Phil Shapiro
'Script copyrighted by CadLANTIQUE
'www.cadlantique.com
'Script version jeudi 1 avril 2010 15:03:05

Call Main()
Sub Main()

Dim arrObjects
Dim ArrayDim
Call Rhino.EnableRedraw(False)
Call Rhino.Command ("_SelDim")
arrObjects = Rhino.SelectedObjects
Call ReplaceLastZero (arrObjects)
Rhino.UnselectObjects (arrObjects)
Call Rhino.EnableRedraw(True)
End Sub

Sub ReplaceLastZero (arrObjects)

Dim strRightPartOfDim, strObject, strDimText, ArrayDim
Dim i, arrPartsTojoin, strLengthRight, Result

If IsArray(arrObjects) Then
For Each strObject In arrObjects
strDimText = Rhino.DimensionText (strObject)
Result = InStrRev (strDimText,Chr(46))
If (Result<>0) Then
ArrayDim = Split(strDimText, ".", -1, 1)
strRightPartOfDim = Right (ArrayDim(1),1)
strLengthRight = Len(ArrayDim(1))
For i=0 To strLengthRight
If strRightPartOfDim="0" Then
ArrayDim(1) = Mid(ArrayDim(1),1,strLengthRight-i)
strRightPartOfDim = Right (ArrayDim(1),1)
End If
Next
If (ArrayDim(1)="")Then
strDimText = ArrayDim(0)
Else
arrPartsToJoin = Array(ArrayDim(0),".",ArrayDim(1))
strDimText = Join (arrPartsTojoin)
strDimText = Replace(strDimText,Chr(32),"")
End If
Call Rhino.DimensionUserText (strObject, strDimText)
End If
Next
End If
End Sub
)