Im trying to make a visual basic console application for Solid Edge, in this console application i want visual basic to make curves in Solid Edge. These curves had data stored in a space dilimited text file. I tried to make the program but it got stuck at making the lines, the console just stays blck and there's just an opened part file.
Does anyone knows what i'm doing wrong, or what i should do? I'm using visual basic 2003 standart, and i am trying this with Solid Edge ST2.
I'm not a programmer, so help i much appriciated.
Heres my code: ( I made this code with stuff i found on the internet, form the solid edge programmers guide and made some by my self.
Dim strFileName As String = "U:\pompen.prn"
Dim objFS As New FileStream(strFileName, FileMode.Open, FileAccess.Read)
Dim objSR As New StreamReader(objFS)
Dim objApp As SolidEdgeFramework.Application = Nothing
Dim objDocuments As SolidEdgeFramework.Documents = Nothing
Dim objPart As SolidEdgePart.PartDocument = Nothing
Dim objProfileSets As SolidEdgePart.ProfileSets = Nothing
Dim objProfileSet As SolidEdgePart.ProfileSet = Nothing
Dim objProfiles As SolidEdgePart.Profiles = Nothing
Dim objProfile As SolidEdgePart.Profile = Nothing
Dim objRefplanes As SolidEdgePart.RefPlanes = Nothing
Dim objdraft2d As SolidEdgeDraft.CoordinateSystem2d = Nothing
Dim objBSpline As SolidEdgeFrameworkSupport.BSplineCurve2d = Nothing
Dim objBSplines As SolidEdgeFrameworkSupport.BSplineCurves2d = Nothing
Dim objLines2d As SolidEdgeFrameworkSupport.Lines2d = Nothing
Dim objLine2d As SolidEdgeFrameworkSupport.Line2d = Nothing
Dim strEmpRecord As String
Dim type As String
Dim N1 As Double
Dim QT As Double
Dim DW1 As Decimal
Dim EQ As Decimal
Dim EH As Decimal
Dim DWL As Decimal
Dim DHL As Decimal
Dim C1 As Decimal
Dim C2 As Decimal
Dim C3 As Decimal
Dim C4 As Decimal
Dim C5 As Decimal
Dim QFACTOR As Decimal
Do While objSR.Peek <> -1
' read the current record (line) into the variable strEmpRecord