Bonjour la communauté

( un jour quand je serais doué je vous rendrais tout ceci au centuple )

J'ai un soucis je reçois des plans autocad en 2D avec les indications d'altitude au format texte. Je me cogne ensuite les points a la main en rentrant l'altitude pour chaque point.

Je suppose qu'il doit y avoir un moyen plus simple, comme un script par exemple?

Merci Merci Merci Merci ( quelques fois j'ai vraiment beaucoup de points )

Bonjour Vlad
J'ai ça dans mon tiroir donc voici, il faut juste faire attention avec le séparateur décimal, comme rien n'est spécifié il prend le séparateur indiqué par le paramètrage régionale de ta machine, donc en France le séparateur serait la virgule, si tu l'utilise avec des données Rhino ou le séparateur est un point il génère des erreurs. Pour le faire tourner dans un bouton n'oublie pas de l'inclure dans

!-_RunScript
(
<= mettre le script ici
)



Option Explicit
'Script written by Phil Shapiro
'Script copyrighted by CadLANTIQUE
'www.cadlantique.com
'Script version Friday, 14 May 2010 14:31:02

Call Main()

Sub Main()
Dim ArrTextObjects, strObject, strText
Dim arrPoint

ArrTextObjects = Rhino.GetObjects("Select text")


For Each strObject In ArrTextObjects
If Rhino.IsText(strObject) Then
strText = Rhino.TextObjectText (strObject)
arrPoint= Rhino.TextObjectPoint (strObject)
If Not( IsNull (CDbl (strText))) Then
arrPoint(2)= CDbl (strText)
Call Rhino.TextObjectPoint (strObject, arrPoint)
Call Rhino.AddPoint (arrPoint)
End If

End If
Next
End Sub

Super rapide la réponse merci j'y vais de ce pas

Effectivement lorsque j'ai des points ca ne marche pas, j'ai une erreur. Si j'ai beaucoup de points ... comment faire?
Merci

On peut changer soit les paramètres régionaux de ton PC ( ce qui me parait pas idéal car c'est surement utile dans d'autres cas ) Ou alors utiliser le script ci dessous qui transforme les points en virgules ou les virgules en point pour un ensemble d'objet textes sélectionnés dans Rhino.

Option Explicit
'Script written by Phil Shapiro
'Script copyrighted by CadLANTIQUE
'www.cadlantique.com
'Script version samedi 15 mai 2010 15:18:59

Call Main()
Sub Main()
Dim Comma, Period

Comma = Chr(44)
Period = Chr(46)

Dim Separator, ArrTexts,strObject, Text

Dim ArrSeparateurs : ArrSeparateurs = Array("Point","Virgule")
Separator = Rhino.GetString("Séparateur décimal souhaité",,ArrSeparateurs)
ArrTexts = Rhino.GetObjects("Sélectionner les textes a changer")
Select Case (Separator)
Case "Point"
For Each strObject In ArrTexts
If Rhino.IsText (strObject)Then
Text = Rhino.TextObjectText(strObject)
Text = Replace(Text,Comma,Period)
Call Rhino.TextObjectText(strObject, Text)
End If
Next
Case "Virgule"
For Each strObject In ArrTexts
If Rhino.IsText (strObject)Then
Text = Rhino.TextObjectText(strObject)
Text = Replace(Text,Period,Comma)
Call Rhino.TextObjectText(strObject, Text)
End If
Next
End Select
End Sub