几个打印Lisp例程

BrianTFC · 发表于 2022-7-5 18:52:06

这里有一些我在这个网站上得到了很多人的帮助的打印Lisp，我想我会把它们分享给任何想使用它们的人。享受

[code]；；；车间打印18x24（defun c：车间（/ob ss bn mn mx）（vl load com）（pltnum）（if（and（progn（initget“B”）（setq ob（entsel”\n选择块/B表示块名：）（cond（（eq ob“B”）（setq bn（getstring”\n nEtner块名：）（（and（eq（type ob）”列表）（vlax-method-applicable-p（vlax ename->vla object（car ob））'getboundingbox））（setq bn（cdr（assoc 2（entget（car ob）ааа）а）（tblsearch“BLOCK”bn）（setq ss（ssget“_X”（list“（0。“INSERT”）'（410。“Model”）（cons 2 bn）））（progn（vla zoomextents（vlax get acad object））（repeat（setq i（sslength ss））（vla getboundingbox（vlax ename->vla object（ssname ss（setq i（1-i）））“mn'mx）（repeat xplta（command“plot”“yes”“model”“Your Plotter Name.pc3”“18x24（ARCH C）”“inches”“横向”“no”“窗口（trans（vlax safearray->list mn）0 1）（trans（vlax safearray->list mx）0 1）“fit”“center”“yes”“Your.ctb”“yes”“no”“no”“yes”“yes”））（princ“\n未选择块：）（defun pltnum（）（setq numplt（getint”\n输入绘图数量：）（if（=numplt nil）（setq xplt 1）（setq xplt numplt））（if（

BlackBox · 发表于 2022-7-5 19:37:32

FWIW-

这些可能会为您节省大量时间：

自动发布机制-用于在图形保存或关闭（用户可配置）时生成PDF或DWF，其速度比打印或发布快得多。

vla SetActivePageSetup LispFunction-用于将命名页面设置应用于一个或多个布局，并可通过ObjectDBX用于批处理。

BIGAL · 发表于 2022-7-5 19:55:43

BrianTFC还有一些。一旦你得到一个工作它很容易添加更多。

布局的打印范围开始结束PDF、颜色和单声道
在模型或布局中按标题栏打印所有内容。

http://www.cadtutor.net/forum/showthread.php?69132-正在打印LISP帮助&高亮显示=打印LISP
http://www.cadtutor.net/forum/showthread.php?67143-一键打印
http://www.cadtutor.net/forum/showthread.php?67793-绘制所有-（命名）视图的脚本/page2&高亮显示=视图
http://www.cadtutor.net/forum/showthread.php?84430-移动布局重命名布局转到布局

[编程交流] 几个打印Lisp例程

发表回复

精选推荐