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，请在右侧选项卡上删除它
 
 
(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

怎么样：
 

(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))))

JohnM 发表于 2022-7-6 12:18:34

李，
这也可行，但我认为如果在“选项”对话框中选中“生成视口选项”，它也会生成视口窗口。

Lee Mac 发表于 2022-7-6 12:20:22

 
厕所，
 
我的代码更改了“选项”对话框中的该选项。

JohnM 发表于 2022-7-6 12:25:44

哎呀，对不起，这是我在看帖子的时候抽可卡因得到的
干得好，李

Lee Mac 发表于 2022-7-6 12:28:02

 
认真地
页: [1] 2
查看完整版本: 添加空白布局选项卡