;***************1,快速命令縮寫********************************
(DEFUN C:ZP() (COMMAND "ZOOM" "P"))
(DEFUN C:ZW() (COMMAND "ZOOM" "W"))
(DEFUN C:ZD() (COMMAND "ZOOM" "D"))
(DEFUN C:ZV() (COMMAND "ZOOM" "V"))
(DEFUN C:ZA() (COMMAND "ZOOM" "A"))
(DEFUN C:Ze() (COMMAND "ZOOM" "e"))
(DEFUN C:ZX   ()(COMMAND "zoom" "0.9X" ""))
(DEFUN C:ZD   ()(COMMAND "ZOOM" "1.2XP" ""))

ET,        *EXTYIM    ;多重打斷
QD,        *QDIM      ;快速標注
AI,        *AI_MOLC   ;選擇當前層
SS,        *MSTRETCH  ;多重拉伸z 

LAF,       *LAYFRZ    ;凍結圖層
LAO,       *LAYOFF    ;關閉圖層
LAL,       *LAYLCK    ;鎖護圖層
LAU,       *LAYULK    ;解鎖圖層
LAI,       *LAYISO    ;單獨留下圖層    
           *dimaso

(defun c:BR()(command "BREAK"  pause "F" pause pause ""))

(defun c:DU()
          (command "dim"  "up" "" ))

(DEFUN C:JK() (setq LAY (getstring "\輸入加開圖層名: "))
              (COMMAND"._LAYER" "SET"  lay "")(princ "\nOK!")(princ))

(defun C:CO() (princ "\多重復制") (princ)
              (setq s  (ssget))
              (command "copy" s "" "m")
              ) 

(DEFUN C:Da() (command "-layer"  "S" "dim"  "")
              (COMMAND "DIMORDINATE")              
              (princ "\n圓點標注!")(princ)) 
 
(defun c:CSS()
          (setvar "osmode" 15359)
          (command "ucs" "o" ) (princ))

(defun c:dcn()(command "dimordinate" pause "t" "<>(cen)" pause "" "exit"))
(defun c:din()(command "dimordinate" pause "t" "<>(int)" pause "" "exit"))

;****************畫圓功能*********************************
(defun c:tt()(command "circle" "ttr"))
(defun c:pp()(command "circle" "2p"))
(defun c:ttt()(command "circle" "3p" "tan" pause "tan" pause "tan" pause))


;***************倒角功能******************************
(defun c:fc()(command "fillet" "r" "0")(command "fillet"))
(defun c:fr()(command "fillet" "r" pause)(command "fillet"))
(defun c:ca()(command "chamfer" "D" pause pause)(command "chamfer"))

;****************改變顏色功能****************************
(defun c:c1()(ssget)(command "chprop" "p" "" "c" "1" ""))
(defun c:c2()(ssget)(command "chprop" "p" "" "c" "2" ""))
(defun c:c3()(ssget)(command "chprop" "p" "" "c" "3" ""))
(defun c:c4()(ssget)(command "chprop" "p" "" "c" "4" ""))
(defun c:c5()(ssget)(command "chprop" "p" "" "c" "5" ""))
(defun c:c6()(ssget)(command "chprop" "p" "" "c" "6" ""))
(defun c:c7()(ssget)(command "chprop" "p" "" "c" "7" ""))
(defun c:c8()(ssget)(command "chprop" "p" "" "c" "8" ""))
(defun c:c30()(ssget)(command "chprop" "p" "" "c" "30" ""))

;****************改變線型功能****************************
(defun c:l1()(command "linetype" "load" "acadiso" "CONTINUOUS" "")
           (ssget)(command "chprop" "p" "" "lt" "CONTINUOUS" "")
                  (command "ltscale" "1" ""))

(defun c:l2()(command "linetype" "load" "acadiso" "DASHED" "")
           (ssget)(command "chprop" "p" "" "c" "1" "")
                  (command "chprop" "p" "" "lt" "DASHED" "")
                  (command "ltscale" "1" ""))

(defun c:l3()(command "linetype" "load" "acadiso" "CENTER" "")
           (ssget)(command "chprop" "p" "" "c" "4" "")
                  (command "chprop" "p" "" "lt" "CENTER" "")
                  (command "ltscale" "1" ""))

(defun c:l4()(command "linetype" "load" "acadiso" "phantom" "")
           (ssget)(command "chprop" "p" "" "c" "8" "")
                  (command "chprop" "p" "" "lt" "phantom" "")
                  (command "ltscale" "1" ""))               

-------------------------------------------------------------
(DEFUN C:CD05()
	(COMMAND "CHAMFER" "D" "0.5" "")
	(COMMAND "CHAMFER" )
)

(DEFUN C:CD1()
	(COMMAND "CHAMFER" "D" "1" "")
	(COMMAND "CHAMFER" )
)
(DEFUN C:CD15()
	(COMMAND "CHAMFER" "D" "1.5" "")
	(COMMAND "CHAMFER" )
)


(DEFUN C:CD2()
	(COMMAND "CHAMFER" "D" "2" "")
	(COMMAND "CHAMFER" )
)
(DEFUN C:CD25()
	(COMMAND "CHAMFER" "D" "2.5" "")
	(COMMAND "CHAMFER" )
)

(DEFUN C:CD3()
	(COMMAND "CHAMFER" "D" "3" "")
	(COMMAND "CHAMFER" )
)

(DEFUN C:CD35()
	(COMMAND "CHAMFER" "D" "3.5" "")
	(COMMAND "CHAMFER" )
)
(DEFUN C:CD4()
	(COMMAND "CHAMFER" "D" "4" "")
	(COMMAND "CHAMFER" )
)

(DEFUN C:CD45()
	(COMMAND "CHAMFER" "D" "4.5" "")
	(COMMAND "CHAMFER" )
)
(DEFUN C:CD5()
	(COMMAND "CHAMFER" "D" "5" "")
	(COMMAND "CHAMFER" )
)

--------------------------------------

(defun c:2r()(command "dim" "rad" pause "2-<>" pause "" "exit"))
(defun c:3r()(command "dim" "rad" pause "3-<>" pause "" "exit"))
(defun c:4r()(command "dim" "rad" pause "4-<>" pause "" "exit"))
(defun c:5r()(command "dim" "rad" pause "5-<>" pause "" "exit"))
(defun c:6r()(command "dim" "rad" pause "6-<>" pause "" "exit"))
(defun c:7r()(command "dim" "rad" pause "7-<>" pause "" "exit"))
(defun c:8r()(command "dim" "rad" pause "8-<>" pause "" "exit"))
(defun c:9r()(command "dim" "rad" pause "9-<>" pause "" "exit"))
(defun c:10r()(command "dim" "rad" pause "10-<>" pause "" "exit"))
(defun c:11r()(command "dim" "rad" pause "11-<>" pause "" "exit"))
(defun c:12r()(command "dim" "rad" pause "12-<>" pause "" "exit"))
(defun c:2d()(command "dim" "dia" pause "2-<>" pause "" "exit"))
(defun c:3d()(command "dim" "dia" pause "3-<>" pause "" "exit"))
(defun c:4d()(command "dim" "dia" pause "4-<>" pause "" "exit"))
(defun c:5d()(command "dim" "dia" pause "5-<>" pause "" "exit"))
(defun c:6d()(command "dim" "dia" pause "6-<>" pause "" "exit"))
(defun c:7d()(command "dim" "dia" pause "7-<>" pause "" "exit"))
(defun c:8d()(command "dim" "dia" pause "8-<>" pause "" "exit"))
(defun c:9d()(command "dim" "dia" pause "9-<>" pause "" "exit"))
(defun c:10d()(command "dim" "dia" pause "10-<>" pause "" "exit"))
(defun c:11d()(command "dim" "dia" pause "11-<>" pause "" "exit"))
(defun c:12d()(command "dim" "dia" pause "12-<>" pause "" "exit"))
(defun c:RTY()(command "dim" "rad" pause "<>TYP" pause "" "exit"))
(defun c:DTY()(command "dim" "DIA" pause "<>TYP" pause "" "exit"))
(defun c:XD()(command "dim" "HOR" pause PAUSE "T" "%%C<>" pause "" "exit"))
(defun c:YD()(command "dim" "VER" pause PAUSE "T" "%%C<>" pause "" "exit"))
(defun c:CC05()(command "dim" "L" PAUSE PAUSE "" "C0.5" "" "exit"))
(defun c:CC1()(command "dim" "L" PAUSE PAUSE "" "C1.0" "" "exit"))
(defun c:CC2()(command "dim" "L" PAUSE PAUSE "" "C2.0" "" "exit"))
(defun c:CC3()(command "dim" "L" PAUSE PAUSE "" "C3" "" "exit"))
(defun c:CC15()(command "dim" "L" PAUSE PAUSE "" "C1.5" "" "exit"))
(defun c:CC25()(command "dim" "L" PAUSE PAUSE "" "C2.5" "" "exit"))
(defun c:CC35()(command "dim" "L" PAUSE PAUSE "" "C3.5" "" "exit"))
(defun c:2C1()(command "dim" "L" PAUSE PAUSE "" "2-C1.0" "" "exit"))
(defun c:2C15()(command "dim" "L" PAUSE PAUSE "" "2-C1.5" "" "exit"))
(defun c:2C2()(command "dim" "L" PAUSE PAUSE "" "2-C2.0" "" "exit"))
(defun c:2C25()(command "dim" "L" PAUSE PAUSE "" "2-C2.5" "" "exit"))
(defun c:C1T()(command "dim" "L" PAUSE PAUSE "" "C1.0TYP" "" "exit"))
(defun c:C2T()(command "dim" "L" PAUSE PAUSE "" "C2.0TYP" "" "exit"))
(defun c:C3T()(command "dim" "L" PAUSE PAUSE "" "C1.5TYP" "" "exit"))