CurveByTable.Add Method Arguments
CurveByTable.Add Method Arguments
(OP)
Does anyone have experience using CurveByTable in conjunction with VB? If so, could you please briefly explain the proper use of the "Add" method for this object?
I have experimented with various choices for the arguments "Closure", "ClosureType", "UnitType", and "dTolerance" without finding a successful combination. Every time I've run the "Add" method I've received an "Invalid Procedure Call or Argument" error.
A sample line of code would be great, too.
Thanks,
-Jon
I have experimented with various choices for the arguments "Closure", "ClosureType", "UnitType", and "dTolerance" without finding a successful combination. Every time I've run the "Add" method I've received an "Invalid Procedure Call or Argument" error.
A sample line of code would be great, too.
Thanks,
-Jon





RE: CurveByTable.Add Method Arguments
Thanks,
Josh
RE: CurveByTable.Add Method Arguments
Option Explicit
Dim objApp As SolidEdgeFramework.Application
Dim objDoc As SolidEdgePart.PartDocument
Dim objCurveByTable As SolidEdgePart.CurveByTable
Dim objRefPln As RefPlane
Private Sub Form_Load()
Set objApp = GetObject(, "SolidEdge.Application")
Set objDoc = objApp.ActiveDocument
'CurveType = only igDirectFit and igLeastSquareFit will work
'Closure = igNormal, igClosed
'ClosureType = igNatural, igPeriodic
'UnitType = Null, Character string
Set objCurveByTable =
objDoc.Constructions.CurvesByTables.Add(filepath:="c:\Vb
Examples\CurveByTable\CurveByTable.xls", _
CurveType:=igLeastSquareFit, _
dtolerance:=0.0001, _
ClosureType:=igPeriodic)
objCurveByTable.Visible = True
End
End Sub
RE: CurveByTable.Add Method Arguments
Thanks again,
Jon
RE: CurveByTable.Add Method Arguments
A sample line of code would be great, too.
Thanks,
Mlody