0 Members and 1 Guest are viewing this topic.
(defun c:shadeview-1 ()(setvar "cmdecho" 0)(setvar "psltscale" 0)(setvar "ltscale" 12)(setq ent (car (entsel "\nselect viewport: ")))(setq enlist (entget ent))(setq enlist2 (subst (cons 281 0)(assoc 281 enlist) enlist2))(entmod enlist2)(entupd ent))