(defun c:vpr ()
(setvar "cmdecho" 0)
(setq switch (command "_.pspace"))
(setq selections (entsel "Select Polygonal VPort to convert to Rectangular: "))
(command "vpclip" selections "d" )
)

Advertisements