dxfout到坐标0,0
你好我将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： 确认
很简单，有两个变量extmax和extmin，它们正是您的绘图区域，所以只需编写一个lisp或简单宏即可。
macro
^c^c^pmove;w;(getvar "extmin");(getvar "extmax");;(getvar "extmin");"0,0"
(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")
keyboard copy to command line note space on end
move w (getvar "extmin") (getvar "extmax")(getvar "extmin") (list 0 0)
你好，比格尔，
谢谢你的回答。我试图将此代码保存为dvb文件。但它不起作用。
ACAD表示“文件格式不正确”
我还尝试直接在命令行中复制代码。
ACAD表示“etxmin未知命令”
我还试图逐行保存为lisp，但它不起作用。
对不起，我是VBA和lisp的哑巴。
你能把完整的代码发给我吗？
谢谢你的帮助 BIGAL提供的代码不是宏吗？
页:
[1]