https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/better-zoom-to-entlast/m-p/9369471#M77360 <P>I need a better way to Zoom to the last object created.&nbsp;</P><LI-CODE lang="markup"> (entmake (list (cons 0 "CIRCLE") ; place circle on pt (cons 100 "AcDbEntity") ; 100 Entity Code (cons 8 "temp") ; Layer 0 (cons 62 1) ; color red (cons 100 "AcDbCircle") ; 100 Entity Block (cons 10 pt) ; insertion point (cons 40 (* sc 2)) ; radius ) ; list ) ; entmake (list '(0 . "CIRCLE") ;; zoom to point (command "_zoom" "o" (entlast) "") (command "_zoom" "1/30" "") ;; get insetion point (setq pt (getpoint pt "\nPlace the block... \n")) (delbylayer "temp")</LI-CODE><P>This code is a part of a while loop, processing from about eight to over 100 points.</P><P>The circle gives focus to a point close the point to be picked. I thought that it would be ideal as a zoom-to point.</P><P>In the practical, it works for the first two or three zooms, but zooms lower and lower on the screen till the circle is no longer in the zoom.</P> Tue, 10 Mar 2020 15:29:55 GMT mmitchellH6TRW 2020-03-10T15:29:55Z https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/better-zoom-to-entlast/m-p/9369471#M77360 <P>I need a better way to Zoom to the last object created.&nbsp;</P><LI-CODE lang="markup"> (entmake (list (cons 0 "CIRCLE") ; place circle on pt (cons 100 "AcDbEntity") ; 100 Entity Code (cons 8 "temp") ; Layer 0 (cons 62 1) ; color red (cons 100 "AcDbCircle") ; 100 Entity Block (cons 10 pt) ; insertion point (cons 40 (* sc 2)) ; radius ) ; list ) ; entmake (list '(0 . "CIRCLE") ;; zoom to point (command "_zoom" "o" (entlast) "") (command "_zoom" "1/30" "") ;; get insetion point (setq pt (getpoint pt "\nPlace the block... \n")) (delbylayer "temp")</LI-CODE><P>This code is a part of a while loop, processing from about eight to over 100 points.</P><P>The circle gives focus to a point close the point to be picked. I thought that it would be ideal as a zoom-to point.</P><P>In the practical, it works for the first two or three zooms, but zooms lower and lower on the screen till the circle is no longer in the zoom.</P> Tue, 10 Mar 2020 15:29:55 GMT https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/better-zoom-to-entlast/m-p/9369471#M77360 mmitchellH6TRW 2020-03-10T15:29:55Z https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/better-zoom-to-entlast/m-p/9369596#M77361 <P>For right now:</P><LI-CODE lang="markup"> (entmake (list (cons 0 "CIRCLE") ; place circle on pt (cons 100 "AcDbEntity") ; 100 Entity Code (cons 8 "temp") ; Layer 0 (cons 62 1) ; color red (cons 100 "AcDbCircle") ; 100 Entity Block (cons 10 pt) ; insertion point (cons 40 (* sc 2)) ; radius ) ; list ) ; entmake (list '(0 . "CIRCLE") ;; zoom to point (command-s "_zoom" "c" pt "" 30 "") ;; get insetion point (setq pt (getpoint pt "\nPlace the block... \n")) (delbylayer "temp")</LI-CODE><P>This works consistently.&nbsp;</P><P>&nbsp;</P> Tue, 10 Mar 2020 16:08:19 GMT https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/better-zoom-to-entlast/m-p/9369596#M77361 mmitchellH6TRW 2020-03-10T16:08:19Z