Bill
Why did'nt Acad think of this one. Its not arx, but lisp is my forte`.
(DEFUN C:fcv (/ LAYR cntr )
(SETQ CMD (GETVAR "CMDECHO"))
(SETVAR "CMDECHO" 0)
(PRINC "\nSelect objects whose layers to freeze in current VPORT...")
(setq layss (ssget))
(setq cntr 0)
(SETQ LAY1 (CDR (ASSOC 8 (ENTGET (SSNAME LAYSS CNTR )))))
(REPEAT (SSLENGTH layss)
(SETQ LAYR (CDR (ASSOC 8 (ENTGET (SSNAME LAYSS CNTR )))))
(setq lay1 (strcat LAYR "," LAY1 ))
(SETQ CNTR (1+ CNTR))
)(COMMAND "._VPLAYER" "F" LAY1 "C" "")
(SETVAR "CMDECHO" CMD)
(PRINC)
)
I have about 25 little projects like this that I would love to finish but
Something new keeps coming up. It is my intent to have a couple me routines
like this for say, Thaw layer in a viewport by selecting it from another
viewport. etc... These little simple routines are the ones that save us the
most time.
Hope I was helpful
Rodney Estep