Leaderboard

A lisp could read the viewport details in particualr scale, unlock if locked, jump to model space, pick a point, then jump back paperspace and reset Center and Customscale. Not tested. ; IAcadPViewport 3dd11c70 : TeighaX Interface of rectangular object created in paper space that display view ; ; Property values : ; ; Application (RO) = #<VLA-OBJECT IAcadApplication 000000002C756D60> ; Center = (135.0 100.0 0.0) ; CustomScale = 0.448933782267116 ; Height = 136.0 ; Width = 196.0 You need to use the trans function to work out the XYZ etc. Did drawgrid in paperspace based on model pick pt so have the answers but need to rewrite it to suit.

This selects lwpolylines that are closed and have only have 2 radius aka donuts. maybe something else idk donuts dont really have a call out like other entity like lines, blocks, circles from what Im reading. Will select everything it counted when the command ends. You don't need to step thought everything take your if statements and apply them in the ssget. (defun C:TEST () (setq SS (ssget "X" '((0 . "lwpolyline")(70 . 1)(90 . 2)))) (prompt (strcat "\n"(itoa (sslength SS)) " Donuts in the Drawing")) (sssetfirst nil SS) (princ) )

Donuts dont exist long I just ate the last one. Oh yeah a donut is a Lwpolyline.