As evidenced by over 30 years of development history, trust-worthy Korean CAD, CADian!
FAQ
·
2013.12.11
CADian VBA Sample Code - 27 [ Angle(Text) -> Real ]
|
---|
Dim angAsStr As String Dim unit As Integer Dim angAsReal As Double angAsStr = "45" unit = vicDegrees angAsReal = ThisDocument.Utility.AngleToReal(angAsStr, unit) MsgBox "45 degrees converts to " & angAsReal & " radians.", , "AngleAsReal Example" ""ThisDocument.Utility.AngleToReal (Angle, [Unit]) ""This converts stringle angle as Real(Double). ""RetVal = AngleToReal(Angle, Unit) ""Object ""Utility : Object(s) which this method will be applied. ""Angle : String; Input-only ""Angle for string value. ""Unit : Input-only ""Units for converting text string. ""vicDegrees ""vicDegreeMinuteSeconds ""vicGrads ""vicRadians ""RetVal: Double ""Angle in real. |