[编程交流] 图层打开/关闭，需要修改

(vl-load-com)(defun SS_ARRAY (/ i j k doc lst x ss vp rc)
 ;hanhphuc 09/12/14
 (setq doc (vlax-get-acad-object))
 (vlax-for lay        (foreach x '(ActiveDocument Layers) (setq doc (vlax-get doc x)))
   (setq lst (cons (vla-get-name lay) lst))
   ) ;_ end of vlax-for
 (if (< (length lst) [color="red"]20[/color] ); [color="blue"]min=2, you adjust here , example using lst < 20 [/color]
 [color="red"][b] (c:tt)  [/b][/color] ; [color="blue"] use your code if <20[/color]
   [color="red"][b](progn[/b][/color]
 (if (setq ss (ssget "X"))
   (while (/= (sslength ss) 0) (redraw (setq en (ssname ss 0)) 2) (setq ss (ssdel en ss)))
   ) ;_ end of if
(setq j         (length lst)
     k         ((lambda (n / i a b)
    (if        (not (zerop n))
      (progn (setq i (fix (sqrt n)))
             (mapcar 'set '(a b) (list i (1+ i)))
             (cond ((= n (* a a)) (list a a))
                   ((<= (* a a) n (* a b)) (list a b))
                   ((> n (* a b)) (list b b))
                   ) ;_ end of cond
             ) ;_ end of progn
      ) ;_ end of if
    ) ;_ end of lambda
   j
   )
     rc (last (if (not (zerop j))
         (cons j (list (rem (apply '* k) j) k))
         ) ;_ end of if
       ) ;_ end of last
     vp ((lambda (% / dv vH vW lst) ; v1.1
    (setq vH (getvar "viewsize")
          vW (*        vH
                (/ 1.
                   (apply
                     '/
                     (cdr
                       (reverse
                         (apply        'mapcar
                                (cons '- (cdr (setq dv (mapcar ''((x) (trans (getvar x) 0 1)) 
                             '(viewctr vsmin vsmax))))) 
                                ) ;_ end of apply
                         ) ;_ end of reverse
                       ) ;_ end of cdr
                     ) ;_ end of apply
                   ) ;_ end of /
                ) ;_ end of *
          ) ;_ end of setq
    (foreach x '(+ -)
      (setq lst        (cons (mapcar ''((i j) ((eval x) (i (car dv)) (* (* j 0.5) (/ % 100.))))
                              (list car cadr)
                              (list vW vH)
                              ) ;_ end of mapcar
                      lst
                      ) ;_ end of cons
            ) ;_ end of setq
      ) ;_ end of foreach
    ) ;_ end of lambda
   80.
   )
     ) ;_ end of setq
 (vla-arrayrectangular
   (vlax-ename->vla-object
     (entmakex        (vl-list* '(0 . "TEXT")
                  '(1 . "*")
                  '(72 . 4)
                  (cons 40 (* (/ (getvar 'viewsize) (cadr (getvar 'screensize))) 7.))
                  (mapcar ''((x) (cons x (car vp))) '(10 11))
                  ) ;_ end of list
        ) ;_ end of entmakex
     ) ;_ end of vlax-ename->vla-object
   (car rc) ;row
   (cadr rc) ;col
   1
   (/ (- (cadadr vp) (cadar vp)) (- (car rc) 1.))
   (/ (- (caadr vp) (caar vp)) (- (cadr rc) 1.))
   1.
   ) ;_ end of vla-arrayrectangular
 (setq ss (ssget "X" (list (cons 0 "TEXT"))))
 (if (> (setq c (- (setq x (sslength ss)) (length lst))) 0)
   (repeat c (entdel (setq e (ssname ss (setq x (1- x))))) (ssdel e ss))
   ) ;_ end of if
 (repeat (setq i (sslength ss))
   (setq i (1- i))
   (mapcar ''((x) (vlax-put (vlax-ename->vla-object (ssname ss i)) x (nth i (acad_strlsort lst))))
    '(Layer TextString)
    ) ;_ end of mapcar
   ) ;_ end of repeat
[color="red"][b]  ) ;_end of progn[/b][/color]
)
 (terpri)
 ss
 ) ;_ end of defun