Named Views

[Anonymous]

Ok, I have tried to reaserch the help files, and the NG, but I have yet to determine why when I create a namved view via: Set viewObj = ThisDrawing.Views.Add("currentview") The view thats created does not have the same view as if I did it from the command prompt. -view;s;currentview; <---------------This is the outcome I want I just want the current view to be created. It seams the ceter point is always different. ?????? Thanks for clearing this up, Dan

[Anonymous]

Clarification- I know I can simply use the send command, but I do not wish to. I know you can define a centerpoint, but how can this be done if your view changes all the time. The location will be determined as the user initiate the macro, then I wish to run some code, and return the user to where they started. Then the view is deleted, so it is not a permanent. Any ideas? Thanks, Dan "Dan" wrote in message news:4166f104$1_3@newsprd01... > Ok, I have tried to reaserch the help files, and the NG, but I have yet to > determine why when I create a namved view via: > > Set viewObj = ThisDrawing.Views.Add("currentview") > > The view thats created does not have the same view as if I did it from the > command prompt. > > -view;s;currentview; <---------------This is the outcome I want > > I just want the current view to be created. It seams the ceter point is > always different. > > ?????? > > Thanks for clearing this up, > Dan > >

[Anonymous]

Use ThisDrawing.GetVariable for both the "viewctr" & "viewsize" to set the Center & Height properties of the view. Be careful though, as the viewctr returns a 3d point and the Center property expects a 2d point. -- Jeff check out www.cadvault.com "Dan" wrote in message news:41671adf$1_2@newsprd01... > Clarification- > I know I can simply use the send command, but I do not wish to. I know > you > can define a centerpoint, but how can this be done if your view changes > all > the time. The location will be determined as the user initiate the macro, > then I wish to run some code, and return the user to where they started. > Then the view is deleted, so it is not a permanent. > > Any ideas? > Thanks, > Dan > > > "Dan" wrote in message > news:4166f104$1_3@newsprd01... >> Ok, I have tried to reaserch the help files, and the NG, but I have yet >> to >> determine why when I create a namved view via: >> >> Set viewObj = ThisDrawing.Views.Add("currentview") >> >> The view thats created does not have the same view as if I did it from >> the >> command prompt. >> >> -view;s;currentview; <---------------This is the outcome I want >> >> I just want the current view to be created. It seams the ceter point is >> always different. >> >> ?????? >> >> Thanks for clearing this up, >> Dan >> >> > >

[Anonymous]

Hmm, Not getting past this line: vCtr = ThisDrawing.GetVariable("viewctr") What am I doing wrong here? This is a start, not finished yet obviously, but I am trying to incorporate the view center, and I am not sure about how to define the current view size. Thanks, Dan Sub test_view() Dim viewObj As IAcadView2 Dim dCPt(1) As Double Dim vCtr As String Dim vSize As String vCtr = ThisDrawing.GetVariable("viewctr") vSize = ThisDrawing.GetVariable("viewsize") dCPt(0) = 6 dCPt(1) = 6 Set viewObj = ThisDrawing.Views.Add("TEST") With viewObj .Center = vCtr '.Height = 4.5 '.Width = 4.5 End With End Sub "Jeff Mishler" wrote in message news:41671ecb_1@newsprd01... > Use ThisDrawing.GetVariable for both the "viewctr" & "viewsize" to set the > Center & Height properties of the view. Be careful though, as the viewctr > returns a 3d point and the Center property expects a 2d point. > > -- > Jeff > check out www.cadvault.com > "Dan" wrote in message > news:41671adf$1_2@newsprd01... > > Clarification- > > I know I can simply use the send command, but I do not wish to. I know > > you > > can define a centerpoint, but how can this be done if your view changes > > all > > the time. The location will be determined as the user initiate the macro, > > then I wish to run some code, and return the user to where they started. > > Then the view is deleted, so it is not a permanent. > > > > Any ideas? > > Thanks, > > Dan > > > > > > "Dan" wrote in message > > news:4166f104$1_3@newsprd01... > >> Ok, I have tried to reaserch the help files, and the NG, but I have yet > >> to > >> determine why when I create a namved view via: > >> > >> Set viewObj = ThisDrawing.Views.Add("currentview") > >> > >> The view thats created does not have the same view as if I did it from > >> the > >> command prompt. > >> > >> -view;s;currentview; <---------------This is the outcome I want > >> > >> I just want the current view to be created. It seams the ceter point is > >> always different. > >> > >> ?????? > >> > >> Thanks for clearing this up, > >> Dan > >> > >> > > > > > >

[Anonymous]

Sub test_view()

Dim viewObj As IAcadView2
Dim dCPt(1) As Double
Dim vCtr As Variant 'Modified by Nathan
Dim vSize As String

vCtr = ThisDrawing.GetVariable("viewctr")
vSize = ThisDrawing.GetVariable("viewsize")

dCPt(0) = vCtr(0) 'Modified by Nathan
dCPt(1) = vCtr(1) 'Modified by Nathan
Set viewObj = ThisDrawing.Views.Add("TEST")
With viewObj
.Center = dCPt 'Modified by Nathan
'.Height = 4.5
'.Width = 4.5
End With
End Sub

[Anonymous]

I appreciate the help, but I am not understanding. I cannot seem to get the code to work. -view;s;currentview; <---------------This is the outcome I want, manually entered from command line. What is the VB equivilant? "Nathan Taylor" wrote in message news:16300080.1097538045804.JavaMail.jive@jiveforum1.autodesk.com... > Sub test_view() > > Dim viewObj As IAcadView2 > Dim dCPt(1) As Double > Dim vCtr As Variant 'Modified by Nathan > Dim vSize As String > > vCtr = ThisDrawing.GetVariable("viewctr") > vSize = ThisDrawing.GetVariable("viewsize") > > dCPt(0) = vCtr(0) 'Modified by Nathan > dCPt(1) = vCtr(1) 'Modified by Nathan > Set viewObj = ThisDrawing.Views.Add("TEST") > With viewObj > Center = dCPt 'Modified by Nathan > '.Height = 4.5 > '.Width = 4.5 > End With > End Sub

[Anonymous]

Still no go.... Any ideas? "Dan" wrote in message news:4166f104$1_3@newsprd01... > Ok, I have tried to reaserch the help files, and the NG, but I have yet to > determine why when I create a namved view via: > > Set viewObj = ThisDrawing.Views.Add("currentview") > > The view thats created does not have the same view as if I did it from the > command prompt. > > -view;s;currentview; <---------------This is the outcome I want > > I just want the current view to be created. It seams the ceter point is > always different. > > ?????? > > Thanks for clearing this up, > Dan > >

[Anonymous]

The info you recv'd through the other posts is close but not quite there. In order to get the exact view, you MUST supply a height AND WIDTH - otherwise AutoCAD extrapolates the size for you. So, to solve this problem we'll use basic geometry. We can get the AREA variable which stores the area of the current view. Since A = L x W, we'll just solve for W since we know the area and the height: Sub ReCreateCurrentView() Dim oV As AcadView Dim vCPt As Variant Dim dArea As Double Dim dHgt As Double With ThisDrawing vCPt = .GetVariable("VIEWCTR") dHgt = .GetVariable("VIEWSIZE") dArea = .GetVariable("AREA") Set oV = .Views.Add("DAN") ReDim Preserve vCPt(1) oV.Center = vCPt oV.Height = dHgt oV.Width = dArea / dHgt End With End Sub Notice that the view requires a 2D point but the VIEWCTR variable returns a 3D point. I am redefining the variable with the preserve option to convert the 3D point to 2D. -- Mike ___________________________ Mike Tuersley CADalyst's CAD Clinic Rand IMAGINiT Technologies ___________________________ the trick is to realize that there is no spoon...

[Anonymous]

Oops....I should add that this will only work if the user hasn't used the AREA command. The Area variable stores the area of the current view until someone uses the area command and then it retains that area. So, if your users use the area command, you're stuck with the extrapolated view unless someone else has a better workaround. -- Mike ___________________________ Mike Tuersley CADalyst's CAD Clinic Rand IMAGINiT Technologies ___________________________ the trick is to realize that there is no spoon...

[Anonymous]

Thank you very much gentlemen, I have been learning from the school of hard knocks, and have just recently been given the support to really dive into learning VB, and obtaining the materials necessary. These Newsgroups, and help files have been the source of my education, and I have learned very much by example. I have been using AutoCAD for over 12 years, but never dove into the VB side of things....WOW! I really do appreciate your time, and sharing to help others like myself. I hope to be able to contribute back soon. Thanks again, Dan "Mike Tuersley" wrote in message news:y1852d8f1wj.7l5gndlng6d8$.dlg@40tude.net... > The info you recv'd through the other posts is close but not quite there. > In order to get the exact view, you MUST supply a height AND WIDTH - > otherwise AutoCAD extrapolates the size for you. So, to solve this problem > we'll use basic geometry. We can get the AREA variable which stores the > area of the current view. Since A = L x W, we'll just solve for W since we > know the area and the height: > > Sub ReCreateCurrentView() > Dim oV As AcadView > Dim vCPt As Variant > Dim dArea As Double > Dim dHgt As Double > With ThisDrawing > vCPt = .GetVariable("VIEWCTR") > dHgt = .GetVariable("VIEWSIZE") > dArea = .GetVariable("AREA") > Set oV = .Views.Add("DAN") > ReDim Preserve vCPt(1) > oV.Center = vCPt > oV.Height = dHgt > oV.Width = dArea / dHgt > End With > End Sub > > Notice that the view requires a 2D point but the VIEWCTR variable returns a > 3D point. I am redefining the variable with the preserve option to convert > the 3D point to 2D. > > -- Mike > ___________________________ > Mike Tuersley > CADalyst's CAD Clinic > Rand IMAGINiT Technologies > ___________________________ > the trick is to realize that there is no spoon...