CADsite forum

Hallo,

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

Mvg

Thomy

Citaat van: Thomy op ma 30 03 2009, 09:12:03
Hallo,

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

Mvg

Thomy

Beste Thomy,

Sub SEVIEW1()
ThisDrawing.SendCommand "VPOINT" & vbCr & "1,-1,1" & vbCr
End Sub
of
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.

hej,

Merci voor de tips.

Mvg

Thomy

hallo,

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

mvg

thomy

Citaat van: Thomy op ma 30 03 2009, 16:01:09
hallo,
kleine verandering voor SW is het    "-1,-1,1"   
mvg thomy

Beste Thomy,

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

Met vriendelijke groet, HofCAD CSI.