Lee Mac 发表于 2022-7-5 17:19:14

请尝试以下操作：
(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)
)

Shoey 发表于 2022-7-5 17:22:13

李很好，非常感谢。
页: 1 [2]
查看完整版本: cvport变量问题