---

Punkte.txt

hallo zusammen

hier ein programmteil mit folgender absicht:
- es werden werte reingeladen über die Datei Punkte.txt
- damit werden kreise erstellt.

bei mir funktioniert das bestens.
bei meienn kollegen an einem anderen standort nicht,
ihre werte werden anders gerechnet, das "." (punkt)
wird einfach ignoriert, die erhlaten folgende mass der punkte:

P1: X=0 / Y=0 / durchmesser=15
P2: X=15 / Y=15 / durchmesser=25

kann mir das bitte einmal einer testen, danke?
(wenn möglich testen in nx8.5 und nx6)

wenn auch falsch, was kann da unternommen werden?

danke!

-----------------------------------------------------------

Option Strict Off
Imports System
Imports System.Windows
Imports System.Windows.Forms
Imports System.Math
Imports System.IO
Imports NXOpen
Imports NXOpen.UF

Module Module1

Sub Main()

Dim theSession As Session = Session.GetSession()
Dim workpart As Part = theSession.Parts.Work()
Dim theUI As UI = UI.GetUI()
Dim theUfSession As UFSession = UFSession.GetUFSession()

Dim filebox As New OpenFileDialog()
filebox.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
filebox.Title = "Datei mit Kreis-Daten wählen"
filebox.InitialDirectory = "C:\temp"

If filebox.ShowDialog() = DialogResult.OK Then

theSession.LogFile.WriteLine(filebox.FileName)

Dim mystream As StreamReader = New StreamReader(filebox.FileName)

Dim linecount As Integer = 0

Do While mystream.EndOfStream = False
linecount = linecount + 1

Dim zeile As String = mystream.ReadLine()

Dim cwerte As String() = zeile.Split(",")

' ------ Kreis Werte

dim x as decimal = cwerte(0)
dim y as decimal = cwerte(1)
dim z as decimal = 0
dim dm as decimal = cwerte(2)

' ----- kreis erzeugen

Dim center_pt As Point3d = New Point3d(x, y, z) 
Dim mx As Matrix3x3

With mx
.Xx = 1
.Xy = 0
.Xz = 0
.Yx = 0
.Yy = 1
.Yz = 0
.Zx = 0
.Zy = 0
.Zz = 1
End With

Dim top As NXMatrix = workpart.NXMatrices.Create(mx)
workpart.Curves.CreateArc(center_pt, top, dm/2, 0, 2 * PI)

Loop

mystream.Close()

End If

End Sub
End Module

------------------
gruss urs 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Sirus!

Warum nimmst Du 'decimal' statt 'Double'?
Es gibt eine Funktion Double.Parse(...), die Du so einsetzen kann:

Code:

---

Import System.Globalization

...
dim x as Double = Double.Parse(cwerte(1), NumberStyles.Float)
...

---

------------------
Gruß
Wladimir

[Diese Nachricht wurde von wladlaw am 26. Jun. 2013 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hallo wladimir

vielen dank für die antwort.

mit dem "Float" geht das nicht, ohne schon, was ist das?
(muss nun noch prüfen, ob es an anderen standorten auch funkt..)

vom "Parse" hab ich schon gehört, kenn das aber nicht, was ist das?

hast du das bei dir getestet?

------------------
gruss urs 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

...hab gehört dass es nicht geht, ohne "Float"....
...ob es mit gehen würde...???

------------------
gruss urs 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

BITTE: kann mir bitte einer das programm in deutschland testen,
ich weiss nicht ab das am gleichen problem scheittert,
wie das "punkt/komma" -problem der tastaturen...

danke!

------------------
gruss urs 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Urs,

bei einem deutschen Windows kommt eine Fehlermeldung weil er Komma statt Punkt erwartet.
So kannst du den Fehler umgehen:

dim x as double = Double.Parse(cwerte(0),System.Globalization.CultureInfo.InvariantCulture)
dim y as double = Double.Parse(cwerte(1),System.Globalization.CultureInfo.InvariantCulture)
dim z as double = 0
dim dm as double = Double.Parse(cwerte(2),System.Globalization.CultureInfo.InvariantCulture)

Gruß
Stefan

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hallo stefan

nun hats geklappt, vielen dank!!!
auch ein dank an Wladimir!

------------------
gruss urs 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP