Request
Quote
Buy now
Register
Product
Remote
Support

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.
Previous Article
CADian VBA Sample Code - 28 [ Select Layer ] ..
Next Article
CADian VBA Sample Code - 26 [ Add a new Layer ] ..
Return to List

Added to cart.

VIEW CART

Please sign in first.

JOIN