http://co.163.com/forum/content/1785_486031_1.htm

到这里看看吧??
你能用的上的

最简单好用的文件。
下载附件后改名flat.lsp,把该文件拷贝到CAD\SUPPORT目录里。打开文件CAD\SUPPORT\acad2004.lsp,在该文件最后一行添加以下文字：(load "Flat.lsp")

就彻底搞定了。画图时，需要任意范围的归零，只需在命令行键入：FLAT

选择直线(全选)然后在特性对话框里面选择直线
把Z轴的起点、端点改为0

选择直线(全选)然后在特性对话框里面选择直线
把Z轴的起点、端点改为0

command:change

select objects：all
properties/<change point>:p
change what property (color/elev/layer/ltype/ltscale/thickness)e
new elevation<varies>:0
change what property(color/elev/layer/ltype/ltscale/thickness)
command:


ok

呵呵
我还以为是VB 的编程呢~
你用的是什么版本的CAD 阿 ？？？ 2000!
英文版的？

这个是最佳方法，但不适用于r14

change命令有局限性，当起点和终点z不同，就不起作用了

天正或其他一些lisp命令也不是对所有的图都起作用

这个不错

fghg :lol :time:

???????????????????????