[编程交流] cvport变量问题

(defun c:vpoff ( / sel )
   (if (setq sel (ssget "_X" (list '(0 . "VIEWPORT") '(68 . 0) (cons 410 (getvar 'ctab)))))
       (alert
           (strcat
               "WARNING!\n\n"
               (itoa (sslength sel))
               (if (= 1 (sslength sel)) " viewport is " " viewports are ")
               "turned off in this layout."
           )
       )
   )
   (princ)
)