View top (without zoom)

[BB8x]

Hello

(defun C:VT () (command "_-VIEW" "Top"))

I use this to set top view (speeds me up). Is there a way to add something to this tiny lisp? For now view top zooms out extents when used. Is there a way to keep actual window zoom as it is before view top is commenced?

Thank you 

[roland.r71]

There was a lisp by @Kent1Cooper, modified by@marko_ribar on cadtutor, to do just that, but it's "unavailable". (maybe they can upload it here, if you ask 'm nicely? 😉)

[marko_ribar · Accepted solution]

Thanks for recommandetion...

This is link at cadtutor : https://www.cadtutor.net/forum/topic/62901-zoom-from-view-to-view-without-zooming-out-to-extend/?tab... 

Here is at theswamp (show stuff forum - you must be logged) : http://www.theswamp.org/index.php?topic=52930.msg577565#msg577565 

And also you have @Kent1Cooper version here at this forum : https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/views-from-predefined-directions-wit... 

But this last version is from 2009. and I suppose not modified by me...

HTH. M.R.

[roland.r71]

@marko_ribarThe cadtutor link is the one i found, but it says: unavailable.

If I click it, it says:

Sorry, there is a problem

This attachment is not available. It may have been removed or the person who shared it may not have permission to share it to this location.

Error code: 2C171/1

[Kent1Cooper]

In my command set that @marko_ribar linked to, that would be the VOO command, for View, Orthogonal, from Overhead.  If you want its DVIEW-based approach plugged into just your from-the-top command definition, it would be like this:

(defun C:VT ()

  (command "_.dview" "" "_points" "none" (getvar 'viewctr) "_none" "@0,0,1" "")
)

[marko_ribar]

---

@roland.r71 wrote:

@marko_ribarThe cadtutor link is the one i found, but it says: unavailable.

If I click it, it says:

Sorry, there is a problem

This attachment is not available. It may have been removed or the person who shared it may not have permission to share it to this location.

Error code: 2C171/1

---

Sorry to hear that... I'll attach what I have in my library...

[Sea-Haven]

Opened link to cadtutor and open lsp no problems. It may be a if not a member ?

[roland.r71]

That's possible. But I would expect something like:

"Sorry, To download attachments you need to be loged-in.

Don't have an account yet? click here."