自动换页
嗨，我只是想知道lisp或其他东西是否可以根据数字或布局自动设置块中的属性因此，如果我创建一个新布局，页面将转到下一个页面，另一个显示它打开了多少布局 在属性值中插入字段（右键单击>插入字段）。 我试过它不起作用：S
卡通风格。图纸
这是我试图更改页码的块 嗨，这是我要找的
我认为这里的代码行是这样的：
(setq total (itoa (length (layoutlist))))
我可以在我上传的图片中找到我想要的
干杯，圣诞快乐！！
希望有人能回答我的问题，否则当我回来工作的时候，我会被我的老板杀了。。笑话 您应该考虑使用图纸集管理器（SSM）：眨眼： 嗨，很抱歉我在度假时回复得太晚了。嗯，我不熟悉SSM。你知道我可以在哪里得到一个教程*或一些关于它的信息吗。
谢谢 别担心；祝贺你（扩展？）假期我整个星期都在度假（打包和搬家）。
要回答您的问题，请考虑以下用户文档的链接：了解图纸集管理器界面 您可能还想使用此代码
我刚刚在转换成2009格式的图纸上测试了它
(defun C:paging(/ adoc atts id lay_field)
(setq adoc (vla-get-activedocument (vlax-get-acad-object)))
(vlax-for lt (vla-get-layouts adoc)
(vla-put-activelayout adoc lt);optional
(vlax-for obj (vla-get-block lt)
(if (eq "AcDbBlockReference" (vla-get-objectname obj))
(if (eq "Cartouche Aliance" (vla-get-effectivename obj))
(if (eq :vlax-true (vla-get-hasattributes obj) )
(progn
(setq atts (vlax-invoke obj 'getattributes))
(foreach x atts
(if (eq "PAGE" (vla-get-tagstring x))
(progn
(setq id (vla-get-objectid (vla-get-layout (vla-objectidtoobject adoc (vla-get-ownerid obj)))))
(setq lay_field (strcat "%<\\AcObjProp Object(%<\\_ObjId " (itoa id)">%).Taborder \\f \"%tc1\">%"))
(vla-put-textstring x lay_field)
)
)
)
)
)
)
)
)
)
(vla-put-activelayout adoc (vla-item (vla-get-layouts adoc) 0));activate Layout1, optional
(princ)
)
(prompt "\Try command: Paging...")
(prin1)
(vl-load-com)
(prin1)
~'J'~ 好的，谢谢，换个页面效果很好。
如果我想让属性“#page”输入总布局是他们的一种方式。
页:
[1]