Get direction of projected view relative to base view

[wayne.helleyY67EK]

I'm trying to find API functionality that will help me figure out the orientation/direction of projected views relative to the base view.

Ideally,  don't want to use the co-ordinates of each view incase a user has rearranged the views to no longer follow the angle (1st or 3rd) angle projection.

I know that I can use DrawingViewTypeEnum to differentiate which views are projected views but I can't figure out a way to know which direction the views have bene projected in.

[bradeneuropeArthur]

Is this what you need:

Dim d As DrawingDocument = ThisDrawing.Document
Dim ds As Sheet = d.ActiveSheet
Dim s As SelectSet = d.SelectSet
Dim dv As DrawingView = s.Item(1)'ds.DrawingViews.Item(4)
MsgBox("view orientation from base: " & dv.ViewOrientationFromBase)
MsgBox( dv.ViewStyle =DrawingViewStyleEnum.kFromBaseDrawingViewStyle)
MsgBox (dv.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType)

[JelteDeJong]

You could also use the camera to find the direction vector of each view. something like this:

Dim doc As DrawingDocument = ThisDoc.Document
Dim sheet As Sheet = doc.ActiveSheet

For Each view As DrawingView In sheet.DrawingViews
	Dim camera = view.Camera
	Dim direction = camera.Eye.VectorTo(camera.Target).AsUnitVector()

	logger.Info(String.Format("{0}| X:{1} Y:{2} Z:{3}", view.Name,
				Math.Round(direction.X), Math.Round(direction.Y), Math.Round(direction.Z)))
Next

I get this

[waynehelley · Accepted solution]

@bradeneuropeArthur@JelteDeJong 

Thankyou both for replies.

Unfortunately 'ViewOrientationFromBase' from base just returns a boolean value whereas I want to know how the view is orientated relative to the base.

JelteDeJong, the camera vector method is a good starting point.  I realized that I would also need to know the angle or the camera. This will be very complicated to figure out (e.g. if my base view is of the Front face but rotated 90deg clockwise, the view to the right of the base view will be out bottom face. I'm sure that there will be a way to figure this out mathematically but my brain can't process this at this moment in time.)

I decided to go with the method of using the view positions...

For Each dwgView In ActiveSheet.Sheet.DrawingViews

'only look at alligned views so that we ignore isometric and floating section/detail views

If dwgView.Aligned = True

If dwgView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType Or dwgView.ViewType = DrawingViewTypeEnum.kSectionDrawingViewType Then

If Math.Round(dwgView.Position.X) = Math.Round(baseView.Position.X)  Then

If Math.Round(dwgView.Position.Y) > Math.Round(baseView.Position.Y) Then

'top

View(4) = dwgView.Name

Logger.Info("Top View: " & dwgView.Name)

Else

'bottom

View(2) = dwgView.Name

Logger.Info("Bottom View: " & dwgView.Name)

End If

Else If Math.Round(dwgView.Position.X) < Math.Round(baseView.Position.X) Then

'left

View(5) = dwgView.Name

Logger.Info("Left View: " & dwgView.Name)

Else

'right

View(3) = dwgView.Name

Logger.Info("Right View: " & dwgView.Name)

End If

End If

End If

Next