Zoom to selected

I often use Quick Select to select objects for subsequent manipulation.
However, I would like to see which items I'm about to manipulate. It would
be very cool to have a routine that takes the list of selected objects and
zoom or pan to each object individually. I have searched high & low for an
existing lisp or vba routine that would perform this seemingly desirable
function.

Has anyone created such a function?

It would be similar in functionality to the Zoom to button in the TextFind
command.

--Bill

 

I was working on something like that but was using Object Data in Map
instead of Qselect. I think I might have part of it at the office still. I
gave up ont it because it was taking forever to loop thru each selection
that I was getting. You might want to REMIND me come Monday, if your
interested in it.

Murph

 

the following will zoom to the start point of a line, center of of
circle/arc, insertion point of a block etc....
and it will use the current zoom ratio. Pretty it up as you like.
(command "zoom" "C" (cdr(assoc 10 ent)) "")

 

Try this.

(defun zoomselected (/ $acad $doc pfrst pfcnt util lll url cen)

(setq $acad (vlax-get-acad-object)
$doc (vla-get-activedocument $acad)
pfrst (vla-get-PickFirstSelectionSet $doc)
pfcnt (vla-get-count pfrst)
util (vla-get-utility $doc)
)

(cond
((> pfcnt 0)
(setq reponse "N"
cmptr_next 0
)
(vlax-for each pfrst
(if (= cmptr_next 0)
(setq reponse "N")
(setq reponse (getstring "Next(N)? "))
)
(if (and each (or (= reponse "N") (= reponse "n")))
(progn
(vla-GetBoundingBox each 'll 'ur)
(vla-ZoomWindow $acad ll ur)
)
)
(setq cmptr_next 1)
)
)
((= pfcnt 0)
(vla-prompt
util
"\nNothing selected!!!"
)
)
)

(princ)
)



;;; call to routine
(defun c:zzs (/ ss)
(vl-load-com)
(if (not (setq ss (cadr (ssgetfirst))))
(alert "\n Select Before calling this routine")
(zoomselected)
)
(princ)
)

 

There is a command that already does this.

I use ACAD 2002 and I recently found the FIND command. It only works with text but it will zoom instantly to each and every instance of a specified text string so you can decide if it should be changed to the new string or not. Try a common word like "typical" or "section" and then pick "zoom to" and it will zoom to one of the occurences of that string. Pick "find next" and then "zoom to" again and it will go to the next one. Very slick.

Garth.