Support

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.

Added to cart.

VIEW CART

Please sign in first.

JOIN