dxfout到坐标0,0

dgcad · 发表于 2022-7-5 17:15:24

你好

我将dwg图形的部分保存为DXF文件。
需要创建许多单独的DXF文件。
目前我使用这个命令dxfout。

问题：
要保存的对象不在dwg中的0,0坐标上。
在DXF文件中，存储的对象必须位于0,0坐标上。
该文件存储在与dwg相同的路径中。

目前，我这样做：

A、在0,0坐标（dwg）上复制对象
B、使用dxfout命令将此对象另存为dxf）
C、将类似DXF文件的标题重命名为objekt

问题：
是否有lisp程序可以总结步骤a-B或ABC。

该计划应该有以下问题：

1：选择dxf的对象-导出
2：选择0点
3：选择M-text作为新文件名
4：确认

BIGAL · 发表于 2022-7-5 17:50:22

很简单，有两个变量extmax和extmin，它们正是您的绘图区域，所以只需编写一个lisp或简单宏即可。

copy


macro 
^c^c^pmove;w;(getvar "extmin");(getvar "extmax");;(getvar "extmin");"0,0"

copy

(setq pt1 (getvar "extmin"))
(setq pt2 (getvar "extmax"))
(command "move" "W" pt1 pt2 ""  pt1 "0.0,0.0")
or
(command "move" "W" (getvar "extmin")  (getvar "extmax" ) "" (getvar "extmin") "0,0")

copy


keyboard copy to command line note space on end
move w (getvar "extmin") (getvar "extmax")  (getvar "extmin") (list 0 0)

dgcad · 发表于 2022-7-5 18:11:39

你好，比格尔，

谢谢你的回答。我试图将此代码保存为dvb文件。但它不起作用。
ACAD表示“文件格式不正确”

我还尝试直接在命令行中复制代码。
ACAD表示“etxmin未知命令”

我还试图逐行保存为lisp，但它不起作用。

对不起，我是VBA和lisp的哑巴。

你能把完整的代码发给我吗？

谢谢你的帮助

ReMark · 发表于 2022-7-5 18:18:30

BIGAL提供的代码不是宏吗？

[编程交流] dxfout到坐标0,0

发表回复

精选推荐