VLISP删除空的LAYOUT

Lisphk · 发表于 2016-9-23 13:20:32

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

VLISP代码示例如何删除空的layouts(tabs)，本代码不会删除当前激活的layout，

vla-get-count 对非激活的layouts返回0，其中没对象的layouts，返回1.

(defun c:deleteemptylayouts (/ layouts layout i)
(vl-load-com)
(setq i 0
layouts (vla-get-layouts
(vla-get-activedocument
(vlax-get-acad-object)
)
)
)
(if (> (vla-get-count layouts) 2)
(vlax-for layout layouts
(if (= (vla-get-modeltype layout) :vlax-false)
(if (< (vla-get-count (vla-get-block layout))
2
)
(progn
(princ (strcat "\n"
(vla-get-name layout)
" deleted"
)
)
(setq i (1+ i))
(vla-delete layout)
)
)
)
)
)
(cond
((> i 1)
(princ (strcat "\n" (itoa i) " layouts deleted"))
)
((= i 0)
(princ "\nNo layouts deleted")
)
)
(princ)
)

(defun c:deleteemptylayouts (/ layouts layout i) 
  (vl-load-com) 
  (setq        i        0 
        layouts        (vla-get-layouts 
                  (vla-get-activedocument 
                    (vlax-get-acad-object) 
                  ) 
                ) 
  ) 
  (if (> (vla-get-count layouts) 2) 
    (vlax-for layout layouts 
      (if (= (vla-get-modeltype layout) :vlax-false) 
        (if (< (vla-get-count (vla-get-block layout)) 
               2 
            ) 
          (progn 
            (princ (strcat "\n" 
                           (vla-get-name layout) 
                           " deleted" 
                   ) 
            ) 
            (setq i (1+ i)) 
            (vla-delete layout) 
          ) 
        ) 
      ) 
    ) 
  ) 
  (cond 
    ((> i 1) 
     (princ (strcat "\n" (itoa i) " layouts deleted")) 
    ) 
    ((= i 0) 
     (princ "\nNo layouts deleted") 
    ) 
  ) 
  (princ) 
)

kqqt6236 · 发表于 2016-9-24 13:31:29

楼主，layouts是什么，小白求解释。

Lisphk · 发表于 2016-9-24 13:37:09

kqqt6236 发表于 2016-9-24 13:31

就这个了。

kqqt6236 · 发表于 2016-9-25 13:36:40

谢谢指教。

xvjiex · 发表于 2021-10-8 06:00:10

感谢分享VLISP删除空的LAYOUT

账号		自动登录	找回密码
密码			立即注册

[每日一码] VLISP删除空的LAYOUT

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。