Rotate multipatch object - vba - arcscene 10

253
0
04-17-2012 02:03 PM
Highlighted
New Contributor II
Hello. I need rotate selected object in multipatch layer. I found one example, but it does not suit me.

  Private Sub CommandButton1_Click()
  Dim pUID As New UID
  Dim pCmdItem As ICommandItem
  pUID.Value = "esriEditor.StartEditingCommand"
  Set pCmdItem = Application.Document.CommandBars.Find(pUID)
  pCmdItem.Execute
  pUID.Value = "esri3DAnalystUI.Rotate3DCommand"
  Set pCmdItem = Application.Document.CommandBars.Find(pUID)
  pCmdItem.Execute
  End Sub

After clicking to Button1 opens window and wait for entered value.
I do not need this screen. After clicking i need rotate object to, for example, 5 degree (this value will be constant).
Reply
0 Kudos
0 Replies