I wrote this one. It works fine, but has a few issues, particularly
with blocks, etc. Use with caution.
;;;--------------------------------------------------------->>FLCV
;;this function works like EP's LFREEZE function, but
;;it is for freezing in the current viewport!
(defun C:FLCV ( / sset llst lay$ nxt )
(if (= (getvar "TILEMODE") 1)
(progn (alert " WARNING!\n TILEMODE is set to
1\nResults may be unexpected!")
(princ "\nSelect objects only if you wish to continue!")
);progn
);if
(princ "\nSelect objects on layers to Freeze: ")
(setq sset (ssget)
llst (cdr (layset sset))
lay$ (car llst)
llst (cdr llst)
;temp line
test llst
);setq
(foreach lnam llst (setq nxt (car llst)
lay$ (strcat lay$ "," nxt)
llst (cdr llst)
);setq
);foreach
(command "._VPLAYER" "F" lay$ "" "")
(princ "\nThe following layers have been frozen in the CURRENT
VIEWPORT:")
(princ (strcat "\n" lay$))
(princ)
);defun
(princ "FLCV,")
;
Polytechforum.com is a website by engineers for engineers. It is not affiliated with any of manufacturers or vendors discussed here.
All logos and trade names are the property of their respective owners.