AnsweredAssumed Answered

Old School VBA question

Question asked by jay.kapalczynski on Jun 8, 2016
Latest reply on Jun 8, 2016 by jay.kapalczynski

I am referencing an old VBA script to place a rosette tool in my map.

 

[ArcGIS 9.x] Rose des vents 3D [Archives] - Forum SIG - Systèmes d'Information Géographique et Géomatiqu

 

Although I am seeing an error at this line (In red below)

Set pCirArc = pRubberCircle.TrackNew(pMxDoc.ActiveView.ScreenDis play, Nothing) ...can someone help?

 

Can anyone please help.....or suggest another Rosette Tool....although I have not found one.

 

Private Sub Rosette_MouseDown(ByVal button As Long, ByVal shift As Long, ByVal x As Long, ByVal y As Long)

Dim pMxApp As IMxApplication

Dim pMxDoc As IMxDocument

Dim pCirArc As ICircularArc

Dim pPoint As IPoint

Dim pRubberCircle As IRubberBand

 

Set pMxDoc = ThisDocument

Set pMxApp = Application

Set pRubberCircle = New RubberCircle

 

' Return a new circle from the tracker object using TrackNew

Set pCirArc = pRubberCircle.TrackNew(pMxDoc.ActiveView.ScreenDis play, Nothing)

Call DrawRosette(pCirArc.CenterPoint, pCirArc.Radius)

End Sub

 

 

Outcomes