View verandenderen

[Thomy]

Hallo,

Weet iemand welk comando je moet gebruiken om u view naar SW Isometric te zetten?

Mvg

Thomy

[HofCAD]

Hallo,

Weet iemand welk comando je moet gebruiken om u view naar SW Isometric te zetten?

Mvg

Thomy

Beste Thomy,

Code Selecteer Uitklappen

Sub SEVIEW1()
ThisDrawing.SendCommand "VPOINT" & vbCr & "1,-1,1" & vbCr
End Sub
of

Code Selecteer Uitklappen

Sub SEVIEW2()
    Dim NewDirection(0 To 2) As Double
    NewDirection(0) = 1: NewDirection(1) = -1: NewDirection(2) = 1
    ThisDrawing.ActiveViewport.Direction = NewDirection
    ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport
End Sub
Zie ook:
http://www.cadtutor.net/forum/showthread.php?t=29175

Met vriendelijke groet, HofCAD CSI.

[Thomy]

hej,

Merci voor de tips.

Mvg

Thomy

[Thomy]

hallo,

kleine verandering voor SW is het    "-1,-1,1"   

mvg

thomy

[HofCAD]

hallo,
kleine verandering voor SW is het    "-1,-1,1"   
mvg thomy

Beste Thomy,

Slordig van mij , maar mijn twee programma's (SEVIEW1 en SEVIEW2) hebben wel de
juiste titel en werking voor een SE Isometric view.

Met vriendelijke groet, HofCAD CSI.