添加空白布局选项卡

woodman78 · 发表于 2022-7-6 11:52:29

我写了一个lisp来创建一个新的空白布局，如果它不是从1开始的，我们有时需要愚弄绘图编号。

这就是我所拥有的。是否可以在没有视口的情况下创建或删除视口？视口是否会增加图形大小，还是应该将其保留在那里？

(defun c:blanktemp ()
(command "_-layout" "n" "Blank - Do Not Delete")
 (princ)
)

JohnM · 发表于 2022-7-6 11:57:59

转到“工具”菜单，然后是“选项”，再转到“显示”选项卡，取消选中“在新布局中cerate viewport”
添加到图形中的任何对象都会增加文件大小。如果视口不是问题，那么我就不会担心它。

woodman78 · 发表于 2022-7-6 12:03:41

是否有一个变量来设置这个，我可以在lisp开始时将其关闭，然后在引入空白模板后重新打开？

谢谢

NBC · 发表于 2022-7-6 12:07:04

在AutoLISP开发人员指南中，沿着LAYOUTCREATEVIEWPORT的路线查看一些内容。

JohnM · 发表于 2022-7-6 12:07:54

没有变量可以关闭新布局上的“生成vp”，它必须在“选项”对话框中显示。
下面是一些代码。把它放在你的代码后面，这就构成了新的副总裁

如果“生成视口”选项位于创建新布局选项卡时生成的最后一个图元上，则视口为。
代码：
1.获取最后一个实体
2、获取信息
3.查看是否为视口
4.检查其是否位于名为“请勿删除”的新选项卡上
5.如果是vp，请在右侧选项卡上删除它

copy

(setq lent (entlast));_get last entity
(setq vpinfo (entget lent));_ent information
(setq isvp (cdr(assoc 0 vpinfo)));_see if viewport
(setq cortab (strcase(cdr(assoc 410 vpinfo))));_see if it's on the right tab
(if (and(= isvp "VIEWPORT")(= cortab "DO NOT DELETE"))
  (entdel lent);_delete last ent if new vp
  );_if

Lee Mac · 发表于 2022-7-6 12:13:25

怎么样：

copy


(defun VCreateTog nil
 
 (setq *disp* (cond (*disp*)
                    ((vla-get-display
                       (vla-get-preferences
                         (vlax-get-acad-object))))))
 (vlax-put *disp* 'LayoutCreateViewport
           (~ (vlax-get *disp* 'LayoutCreateViewport))))