社区 › AutoLISP/Visual LISP 编程技术 › 将所有图层改为可打印层

yanchao316 发表于 2021-11-23 16:51:42

将所有图层改为可打印层

本帖最后由 yanchao316 于 2021-11-23 17:19 编辑

求一个将所有图层改为可打印的程序。有很多个文件，主要是打印前不想在图层管理一遍一遍的点，有时候还会忘。

aihuyujian 发表于 2021-11-23 16:51:43

(vlax-for x (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))) (if (= (vlax-get-property x 'Plottable) ':vlax-false) (vlax-put-property x 'Plottable ':vlax-true)))

yanchao316 发表于 2021-11-23 17:18:39

aihuyujian 发表于 2021-11-23 17:01
(vlax-for x (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))) (if (= (vlax-get-proper ...

谢谢。我可能没说对，是想要个lsp。

aihuyujian 发表于 2021-11-23 17:21:17

yanchao316 发表于 2021-11-23 17:18
谢谢。我可能没说对，是想要个lsp。

你直接复制到命令行回车就行或者新建个TXT复制进去然后改后缀LSP就行了想加快捷键就自己添个defun c:XX

yanchao316 发表于 2021-11-23 17:35:13

本帖最后由 yanchao316 于 2021-11-24 10:06 编辑

aihuyujian 发表于 2021-11-23 17:21
你直接复制到命令行回车就行或者新建个TXT复制进去然后改后缀LSP就行了想加快捷键就自己添个defun c: ...
昨天我自己失误，今天重新试了下，完美。多谢！

xj6019 发表于 2021-11-23 18:26:11

(vl-load-com)
(defun c:NM (/ )
(vlax-for x (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))) (if (= (vlax-get-property x 'Plottable) ':vlax-false) (vlax-put-property x 'Plottable ':vlax-true)))
)

这样试试

KO你 发表于 2021-12-23 01:43:50

本帖最后由 KO你 于 2021-12-23 06:00 编辑

xj6019 发表于 2021-11-23 18:26
(vl-load-com)
(defun c:NM (/ )
(vlax-for x (vla-get-layers (vla-get-activedocument (vlax-get-acad- ...
默认的不打印defpoints图层在这个程序运行下会改变吗

friendship 发表于 2022-8-7 16:31:18

aihuyujian 发表于 2021-11-23 16:51
(vlax-for x (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))) (if (= (vlax-get-proper ...

你好。点选转为可打印层呢

查看完整版本: 将所有图层改为可打印层