w64bit 发表于 2022-8-6 00:49:31

删除布局中的视口

我想删除仅包含一个视口（仅此而已）的布局上的视口。
请问该怎么 操作？有人可以帮帮我吗？
谢谢大家了

ronjonp 发表于 2022-8-6 02:06:49

删除布局中的视口

试试这个..不检查锁定层：
(defun c:foo (/ s)(foreach l (layoutlist)    (and (setq s (ssget "_X" (list (cons 410 l))))         (= 2 (sslength s))         (setq s (mapcar 'cadr (ssnamex s)))         (= "VIEWPORT" (cdr (assoc 0 (entget (car s)))) (cdr (assoc 0 (entget (cadr s)))))         (mapcar 'vla-delete (mapcar 'vlax-ename->vla-object s))    ))(princ))         

页: [1]
查看完整版本: 删除布局中的视口