Difference between revisions of "ImmediateAnnotation"
From scripting
(Created page with " Sub ImmediateAnnotation(PointObj As HybridShape, TextStr As String) Dim PtMeas Dim Ccoords() ReDim Ccoords(2) Set PtMeas = theSPAWorkbench.GetMeasurable(P...") |
(No difference)
|
Latest revision as of 06:56, 22 April 2017
Sub ImmediateAnnotation(PointObj As HybridShape, TextStr As String) Dim PtMeas Dim Ccoords() ReDim Ccoords(2) Set PtMeas = theSPAWorkbench.GetMeasurable(PointObj) PtMeas.GetPoint (Ccoords) Dim AnnFact As AnnotationFactory Set AnnFact = CurAnnSet.AnnotationFactory Dim UserSurf As UserSurface Set UserSurf = UserSurfS.Generate(PointObj) Dim GGG As Annotation Set GGG = AnnFact.CreateEvoluateText(UserSurf, (Ccoords(0) * 1), (Ccoords(1) * 1), (Ccoords(2) * 1), False) Set GText = GGG.Text GText.Text = TextStr End Sub