口齿不清那将：全力以赴
目前，我们将DXF文件从Pro/ENGINEER导出到一个具有自定义软件的刻录表。刻录表设置为只读层0。有没有办法从Pro/ENGINEER中导出DXF文件。用我们的AutoCAD打开它并运行Lisp例程，该例程将自动将所有线条、文字和尺寸移动到图层0？
我们不需要删除当前层，我们只需要层0中的所有内容。
Burn Table软件很难使用，我们每天都这样做。
感谢您提供的任何意见。
-代理 这应该做到：
(defun c:allo (/ ss)
(if (setq ss (ssget "X" (list (cons 0 "LINE,TEXT,MTEXT,DIMENSION")
(if (getvar "CTAB")
(cons 410 (getvar "CTAB"))
(cons 67 (- 1 (getvar "TILEMODE")))))))
(command "_CHPROP" ss "" "LA" "0" "")
(princ "\n<!> No Entities Found <!>"))
(princ))
以上内容将移动所有内容：
直线（非多段线）
尺寸
M-text
D-文本
至第0层-如果您需要修改它以包括其他实体，请告诉我。 李，
非常感谢你。我会看看这对我们有什么作用。我很感谢像你这样的人。这对我来说都是陌生的。
我知道Windows批处理脚本和目前正在学习Java，但我对Lisp一无所知。
再次感谢。 但是，没有在AutoCAD的LT版本上运行LISP的工具。
我不记得2002年了，但你能选择所有内容，然后点击图层表下拉菜单上的图层0吗？这将适用于AC2008。 我刚刚意识到Lisp不能在Autocad的LT版本上运行。
我们运行版本2002 LT。
我会试试这个方法，看看会发生什么。我相信它会奏效的。我希望有一个Lisp可以做到这一点，然后可能进一步自动化它来运行需要将所有内容移到第0层的成批绘图/dxf。
Autocad LT确实支持脚本文件（*.scr），但我对此一点都不熟悉。
再次感谢您的帮助。 LT扩展器？ 啊，对不起，代理-没有注意到你正在运行它。。。
我给你看看剧本 好的，对于这种情况，脚本是很难/不可能的，因为告诉它选择某些对象有些困难。
我想说，你最好的选择是使用QSELECT（Express…不确定它是否有Express？？）。然后选择这样的各种实体。
要么那样，要么升级 您应该能够通过自定义菜单将所有主要实体更改为0。
它不会更改嵌套在插入中的实体-大卫
页:
[1]
2