[原创]：删除图形文件中所有长度为0的直线实体的程序

limingqian

以ACAD2007为例，加载方法，假定ACAD2007安装在C:\Program files\ACAD2007\
则用计事本打开C:\Program files\ACAD2007\SUPPORT\ACAD2007DOC.LSP
找到以下语句：
;;;===== AutoLoad LISP Applications =====
;  Set help for those apps with a command line interface
(setfunhelp "c:gotourl" "" "gotourl")
(autoload "edge"  '("edge"))
(setfunhelp "C:edge" "" "edge")
在其后加入
(autoload "e0"  '("e0"))

保存。启动ACAD，打开需要清理的图形文件，在命令提示行键入：“e0”即可进行清理。

特别说明：
上述方法适用于R12以后各版本加载Lisp程序。
只是相应的Lisp程序文件名随版本有变化。
R12——ACADR12.LSP
R13——ACADR13.LSP
R14——ACADR14.LSP
200？——ACAD200？DOC.LSP
此方法是动态加载Lisp程序，只有当其提供的命令被调用到时才加载。程序中加载语句的通用格式为：
(autoload "被加载的Lisp程序文件名，不带扩展名"  '("Lisp文件所定义的命令名"))

查尔斯

请教：长度为0的直线实体是怎么产生的？
高手请作答！

limingqian

不好的作图习惯会导致长度为零的线段.