Topic: [XDrX-PlugIn(150)] Zoom to the extents of selected objects.

[xdcad]

Code: [Select]

(defun c:xdtb_qzoom (/ ss)
  (if (setq ss (xdrx-ssget
(xdrx-string-multilanguage
   "\n选择要zoom的对象<退出>:"
   "\nSelect the object to zoom <Exit>:"
)
       )
      )
    (xdrx-document-zoomentities ss 0.95)
  )
  (princ)
)