3、 簡化部分命令
在繪圖時，我們經(jīng)常遇到這樣的問題：
     在將兩根直線合并為一根多段線時，要執(zhí)行如下操作：
pe－空格－選擇對象－（系統(tǒng)提示是否轉(zhuǎn)化為多段線）－Y－空格－J－空格－選擇對象，是不是很麻煩？
     又如你要進(jìn)入對象坐標(biāo)系，要執(zhí)行如下操作：
     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" "" "")
)
;改坐標(biāo)系-----------------------世界坐標(biāo)系cw
(defun c:cw()
(command "ucs" "w" )
)
;改坐標(biāo)系-----------------------對象坐標(biāo)系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時，系統(tǒng)將自動加載1.lsp文件。
加載成功后你會發(fā)現(xiàn)，輸入“ge”
可以將N條直線直接改為多段線，“gh”可以直接將N條多段線合并為一條多段線（如果可能），輸入“cs”選擇對象，可以直接進(jìn)入對象坐標(biāo)系，輸入“cw”回到坐標(biāo)系。
下面是我常用的一些簡化命令（僅供參考，各人根據(jù)自己情況而定）：
;改成軸線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" "" "")
)

;改坐標(biāo)系-----------------------世界坐標(biāo)系cw
(defun c:cw()
(command "ucs" "w" )#p#分頁標(biāo)題#e#
)
;改坐標(biāo)系-----------------------對象坐標(biāo)系cs
(defun c:cs()
(command "ucs""n" "ob")
)
;全范圍縮放-----------------------ze
(defun c:ze()
(command "zoom" "e")
)
;全動態(tài)縮放-----------------------ze
(defun c:zd()
(command "zoom" "d")
)
;改成隨層--------------------------------------------------------- 1
(defun c:0(/ ent)
   (setq ent (ssget))
   (command "change" ent "" "p" "c" "bylayer" "")
)
;改成紅色--------------------------------------------------------- 1
(defun c:1(/ ent)
   (setq ent (ssget))
   (command "change" ent "" "p" "c" "1" "")
)
;改成黃色--------------------------------------------------------- 2
(defun c:2(/ ent)
   (setq ent (ssget))
   (command "change" ent "" "p" "c" "2" "")
)
;改成綠色--------------------------------------------------------- 3
(defun c:3(/ ent)
   (setq ent (ssget))
   (command "change" ent "" "p" "c" "3" "")
)
;改成青色--------------------------------------------------------- 4
(defun c:4(/ ent)
   (setq ent (ssget))
   (command "change" ent "" "p" "c" "4" "")
)
;改成藍(lán)色--------------------------------------------------------- 5
(defun c:5(/ ent)
   (setq ent (ssget))
   (command "change" ent "" "p" "c" "5" "")
)
;改成紫色--------------------------------------------------------- 6
(defun c:6(/ ent)
   (setq ent (ssget))
   (command "change" ent "" "p" "c" "6" "")
)
;改成白色--------------------------------------------------------- 7
(defun c:7(/ ent)
   (setq ent (ssget))
   (command "change" ent "" "p" "c" "7" "")
)
;改成灰黑色--------------------------------------------------------8
(defun c:8(/ ent)
   (setq ent (ssget))
   (command "change" ent "" "p" "c" "8" "")
)
;改成9好色--------------------------------------------------------------9
(defun c:9(/ ent)
    (setq ent(ssget))
    (command "change" ent "" "p" "c" "9" "")
)
其實上面這些是lsp程序，我不太懂，望請高手指教。

4、 選擇對象的技巧
在這我只說兩種選擇方式。
A、快速選擇
B、對象選擇過濾器
快速選擇比較簡單，此不詳述。對象選擇過濾器，命令為filter。
下面以選中圖中的所有文字為例來介紹對象選擇過濾器的用法。
     輸入filter（如果定義了上述的左手鍵，可輸入ft）空格，在選擇過濾器欄中選擇“文字”選項，然后點擊替換按鈕，在另存為后輸入1,點擊另存為按鈕保存，點擊應(yīng)用按鈕后就可以選擇對象了。對象選擇過濾器在對象很多時是很好用的。