Lisp程序那将：全力以赴

Proximo · 发表于 2022-7-6 15:02:12

目前，我们将DXF文件从Pro/ENGINEER导出到一个具有自定义软件的刻录表。刻录表设置为只读层0。

有没有办法从Pro/ENGINEER中导出DXF文件。用我们的AutoCAD打开它并运行Lisp例程，该例程将自动将所有线条、文字和尺寸移动到图层0？

我们不需要删除当前层，我们只需要层0中的所有内容。

Burn Table软件很难使用，我们每天都这样做。

感谢您提供的任何意见。

-代理

Lee Mac · 发表于 2022-7-6 15:06:19

这应该做到：

copy


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

Lee Mac · 发表于 2022-7-6 15:12:13

以上内容将移动所有内容：

直线（非多段线）
尺寸
M-text
D-文本

至第0层-如果您需要修改它以包括其他实体，请告诉我。

Proximo · 发表于 2022-7-6 15:16:25

李，

非常感谢你。我会看看这对我们有什么作用。我很感谢像你这样的人。这对我来说都是陌生的。

我知道Windows批处理脚本和目前正在学习Java，但我对Lisp一无所知。

再次感谢。

dbroada · 发表于 2022-7-6 15:21:00

但是，没有在AutoCAD的LT版本上运行LISP的工具。

我不记得2002年了，但你能选择所有内容，然后点击图层表下拉菜单上的图层0吗？这将适用于AC2008。

Proximo · 发表于 2022-7-6 15:25:04

我刚刚意识到Lisp不能在Autocad的LT版本上运行。

我们运行版本2002 LT。

我会试试这个方法，看看会发生什么。我相信它会奏效的。我希望有一个Lisp可以做到这一点，然后可能进一步自动化它来运行需要将所有内容移到第0层的成批绘图/dxf。

Autocad LT确实支持脚本文件（*.scr），但我对此一点都不熟悉。

再次感谢您的帮助。