jeromeb wrote:
> Finally I managed to get som e results regarding my TARGET problem. It
> seems that by changing values using DVIEW you change the target
> coordinates. So I managed to set thet TARGET to 0,0,0 by hand, now I'll
> figure out how to put this into usefull code.
Hello jerome
We have encountered something like your problem I think.
I have made the following VBA Sub to Reset the Center+Target coordinates
for the current viewport in Modelspace of the active drawing in AutoCAD:
This method may help you also our give you some ideas.
Public Sub ResetMSViewPort()
'Reset Current View/Camera for Current Model Space ViewPort
Dim oACADDraw As AcadDocument
Dim oCurViewP As AcadViewport
Dim dCenter(1) As Double
Dim dTarget(2) As Double
'Get Current AutoCAD Drawing Document Object
Set oACADDraw = ThisDrawing
If Not (oACADDraw Is Nothing) Then
'Check for Model Space Active
If (oACADDraw.ActiveSpace = acModelSpace) Then
'Get the Active ViewPort Object
Set oCurViewP = oACADDraw.ActiveViewport
If Not (oCurViewP Is Nothing) Then
'Set ViewPort Center Coordinates to (X,Y)=(0,0)
dCenter(0) = 0#
dCenter(1) = 0#
'Set the ViewPort Center Coordinates
oCurViewP.Center = dCenter
'Set ViewPort Target Coordinates to (X,Y,Z)=(0,0,0)
dTarget(0) = 0#
dTarget(1) = 0#
dTarget(2) = 0#
'Set the ViewPort Target Coordinates
oCurViewP.Target = dTarget
'Set the Active ViewPort to the Modified ViewPort Object
oACADDraw.ActiveViewport = oCurViewP
'Release ViewPort Object
Set oCurViewP = Nothing
End If
End If
'Release Document Object
Set oACADDraw = Nothing
End If
Exit Sub
End Sub
Regards
Jens Bejer Pedersen
