3、 简化部分命令
在绘图时，我们经常遇到这样的问题：
     在将两根直线合并为一根多段线时，要执行如下操作：
pe－空格－选择对象－（系统提示是否转化为多段线）－Y－空格－J－空格－选择对象，是不是很麻烦？
     又如你要进入对象坐标系，要执行如下操作：
     ucs－空格－n－空格－ob－空格－选择对象。
如果你新建一个文本文档，输入这样几句话：
;改为多段线-------------------------------GEss
(defun c:ge(/ ent)
   (setq ent (ssget))
   (command "pedit" "m" ENT "" "y" "" )
;合并-------------------------------将多个多段线合并为一个多段线GH
( defun c:GH(/ ent)
(setq ent (ssget))  
(command "pedit" "m" ent "" "j" "" "")
)
;改坐标系-----------------------世界坐标系cw
(defun c:cw()
(command "ucs" "w" )
)
;改坐标系-----------------------对象坐标系cs
(defun c:cs()
(command "ucs""n" "ob")
)
将文件另存为1.lsp,然后在cad中输入appload加载1.lsp（每次启动CAD后要重新加载），也可将1.lsp文件拷贝到Cad安装目录\Support目录下，然后打开同一目录下的acad2000doc.lsp，在
;;;===== AutoLoad LISP Applications =====
;   Set help for those apps with a command line interface
之后加入(load "1.lsp")，这样，每次启动CAD时，系统将自动加载1.lsp文件。
加载成功后你会发现，输入“ge”
可以将N条直线直接改为多段线，“gh”可以直接将N条多段线合并为一条多段线（如果可能），输入“cs”选择对象，可以直接进入对象坐标系，输入“cw”回到坐标系。
下面是我常用的一些简化命令（仅供参考，各人根据自己情况而定）：
;改成轴线center-------------------------- CE
(defun c:ce(/ ent)
   (setq ent (ssget))
   (command "change" ent "" "p" "lt" "center" "")
)
;改成虚线-------------------------------DH
(defun c:DH(/ ent)
   (setq ent (ssget))
   (command "change" ent "" "p" "lt" "DASH" "")
)
;改线形比例-------------------------------FS
(defun c:FS(/ ent)
   (setq ent (ssget))
   (command "change" ENT "" "p" "S"   )
)
;改线宽-------------------------------FW
(defun c:FW(/ ent)
   (setq ent (ssget))
   (command "change" ENT "" "p" "LW" )
)
;改为多段线-------------------------------GEss
(defun c:ge(/ ent)
   (setq ent (ssget))
   (command "pedit" "m" ENT "" "y" "" )
)
;改多段线宽-------------------------------GW
( defun c:GW(/ ent)
   (setq ent (ssget))
   (command "pedit" "" ent "w" )
)
;合并-------------------------------将多个多段线合并为一个多段线GH
( defun c:GH(/ ent)
(setq ent (ssget))  
(command "pedit" "m" ent "" "j" "" "")
)

;改坐标系-----------------------世界坐标系cw
(defun c:cw()
(command "ucs" "w" )