; ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
; ³ macro.lsp                                                               ³
; ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
; ³ AUTOCAD komut kýsaltmalarý                                              ³
; ³ V 8.20 by Orhan TOKER                                                   ³
; ³ for    AutoCAD r12                                                      ³
; ³ c 1993- Talia Ltd.                                                       ³
; ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ


;============================================================================

(defun c:3m() (command "_3dmesh")(princ))
(defun c:3p() (command "_3dpoly")(princ))

;;; Axx

(defun c:ab() (command "_angbase")(princ))
(defun c:ad() (command "_angdir")(princ))
(defun c:ae() (command "_area" "_e")(princ))
(defun c:am() (switch "ATTMODE")(princ))
(defun c:atd()(command "_attdef")(princ))
(defun c:ati()(command "_attdia")(princ))
(defun c:ats()(command "_attdisp")(princ))
(defun c:ate()(command "_attedit")(princ))
(defun c:atx()(command "_attext")(princ))
(defun c:atm()(command "_attmode")(princ))
(defun c:atr()(command "_attreq")(princ))
(defun c:au() (command "_audit")(princ))

;;; Bxx

;;; Cxx

(defun c:cd() (switch "CMDDIA")(princ))
(defun c:ce() (switch "CMDECHO")(princ))
(defun c:cf() (command "_chamfer")(princ))
(defun c:cfa()(command "_chamfera")(princ))
(defun c:cfb()(command "_chamferb")(princ))
(defun c:cfg()(command "_config")(princ))
(defun c:cp() (command "_chprop")(princ))
(defun c:cr() (command "_circlerad")(princ))

;;; Dxx

(defun c:da()(command "_ddatte")(princ))
(defun c:dda()(c:ddattdef)(princ))
(defun c:ddc()(c:ddchprop)(princ))
(defun c:dde()(command "_ddemodes")(princ))
(defun c:ddf()(c:filter)(princ))
(defun c:ddg()(c:ddgrips)(princ))
(defun c:ddi()(c:ddinsert)(princ))
(defun c:ddl()(command "_ddlmodes")(princ))
(defun c:ddm()(c:ddmodify)(princ))
(defun c:ddn()(c:ddunits)(princ))
(defun c:ddo()(c:ddosnap)(princ))
(defun c:ddp()(c:ddptype)(princ))
(defun c:ddr()(command "_ddrmodes")(princ))
(defun c:dds()(c:ddselect)(princ))
(defun c:ddu()(c:dducs)(princ))
(defun c:ddv()(c:ddvpoint)(princ))
(defun c:ddw()(c:ddview)(princ))
(defun c:ddx()(c:ddattext)(princ))
(defun c:de()(command "_ddedit")(princ))
(defun c:drn()(c:ddrename)(princ))
(defun c:dup()(c:dducsp)(princ))
;<--
(defun c:dm()(command "_dragmode")(princ))
(defun c:dn()(command "_dwgname")(princ))
(defun c:do() (command "_donut")(princ))
(defun c:dv() (command "_dview")(princ))
(defun c:dxi()(command "_dxfin")(princ))
(defun c:dxo()(command "_dxfout")(princ))

;;; Exx

;--> ERASE macros
(defun c:e()  (command "_erase")(princ))
(defun c:ea() (command "_erase" "_all" "")(princ))
(defun c:el() (command "_erase" "_l" "")(princ))
(defun c:ep() (command "_erase" "_p" "")(princ))
;<--
(defun c:es() (command "_edgesurf")(princ))

;;; Fxx

(defun c:f0() (setvar "filletrad" 0.0)(command "_fillet")(princ))
(defun c:fd() (switch "FILEDIA")(princ))
(defun c:fi() (command "'_files")(princ))
(defun c:fm() (switch "FILLMODE")(princ))

;;; Gxx

(defun c:g()  (command "_grid")(princ))
(defun c:gb() (switch "GRIPBLOCK")(princ))
(defun c:gr() (switch "GRIPS")(princ))
(defun c:gs() (command "_GRIPSIZE")(princ))

;;; Hxx

(defun c:hd() (command "_hide")(princ))

;;; Ixx

(defun c:ip() (command "_isoplane")(princ))

;;; Lxx

(defun c:lc() (switch "LIMCHECK")(princ))
(defun c:li() (command "_limits")(princ))


;;; Mxx
;--> MOVE macros
(defun c:ml() (command "_move" "_l" "")(princ))
(defun c:mp() (command "_move" "_p" "")(princ))
;<--
(defun c:min() (command "_minsert")(princ))
(defun c:mm() (command "_MODEMACRO")(princ))
(defun c:mt() (switch "MIRRTEXT")(princ))
(defun c:mv() (setvar "tilemode" 0)(command "_mview")(princ))
(defun c:m2() (setvar "tilemode" 0)(command "_mview" "2" "" "f")(princ))
(defun c:m3() (setvar "tilemode" 0)(command "_mview" "3" "" "f")(princ))
(defun c:m4() (setvar "tilemode" 0)(command "_mview" "4" "_f")(princ))

;;; Oxx

(defun c:oo()  (command "_oops")(princ))
(defun c:ot() (command "_offset" "_t")(princ))
(defun c:o1() (command "_offset" 0.1)(princ))
(defun c:o2() (command "_offset" 0.2)(princ))
(defun c:o5() (command "_offset" 0.5)(princ))
(defun c:op() (command "_open")(princ))
(defun c:os() (command "_osnap")(princ))

;;; Pxx

(defun c:pa() (switch "PICKADD")(princ))
(defun c:pd() (switch "PICKDRAG")(princ))
(defun c:pdm()(command "_PDMODE")(princ))
(defun c:pds()(command "_PDSIZE")(princ))
(defun c:pf() (command "_pface")(princ))
(defun c:po() (command "_polygon")(princ))
(defun c:pln() (command "_plan" ""))
(defun c:pw() (command "_ucs" "_w")(command "_plan" "_w")(princ))

;;; Qxx

;;; Rxx

(defun c:ra() (command "_redrawall")(princ))
(defun c:rr() (c:render)(princ))
(defun c:rg() (command "_regenall")(princ))
(defun c:rs() (command "_revsurf")(princ))
(defun c:r3() (c:rotate3d)(princ))
(defun c:ru() (command "_rulesurf")(princ))

;;; Sxx

(defun c:s1() (command "_surftab1")(princ))
(defun c:s2() (command "_surftab2")(princ))
(defun c:scr()(command "_script")(princ))
(defun c:sd() (command "_shade")(princ))
(defun c:se() (command "_shadedge")(princ))
(defun c:si() (command "_shadedif")(princ))
(defun c:sk() (command "_sketch")(princ))
(defun c:sl() (command "_mslide")(princ))
(defun c:so() (command "_solid")(princ))
(defun c:sw() (command "_stretch" "_w")(princ))

;;; Txx

;;; Uxx

(defun c:u3() (command "_ucs" "3")(princ))
(defun c:ue() (command "_ucs" "_e")(princ))
(defun c:ui() (switch "UCSICON")(princ))
(defun c:uo() (command "_ucs" "_o")(princ))
(defun c:up() (command "_ucs" "_p")(princ))
(defun c:ur() (command "_ucs" "_r")(princ))
(defun c:us() (command "_ucs" "_s")(princ))
(defun c:uv() (command "_ucs" "_v")(princ))
(defun c:uw() (command "_ucs" "_w")(princ))
(defun c:ux() (command "_ucs" "_x" "90")(princ))
(defun c:uy() (command "_ucs" "_y" "90")(princ))

;;; Vxx

(defun c:ver()(command "_acadver"))
(defun c:vr() (command "_viewres")(princ))
(defun c:vs() (command "_vslide")(princ))
(defun c:v2() (command "_vports" "2" "")(princ))
(defun c:v3() (command "_vports" "3" "")(princ))
(defun c:v4() (command "_vports" "4" "")(princ))

;;; Wxx

;;; Xxx

(defun c:xb() (command "_xbind")(princ))
(defun c:xr() (command "_xref")(princ))

;;; Zxx

(defun c:za() (command "_zoom" "_a")(princ))
(defun c:zc() (princ "\nMerkez noktasi:")
	(command "_zoom" "_c" pause "")
	(princ)
	)
(defun c:zd() (command "_zoom" "_d")(princ))
(defun c:ze() (command "_zoom" "_e")(princ))
(defun c:zl() (command "_zoom" "_l")(princ))
(defun c:zp() (command "_zoom" "_p")(princ))
(defun c:zv() (command "_zoom" "_v")(princ))
(defun c:z1() (command "_zoom" "1")(princ))
(defun c:2x() (command "_zoom" "2x")(princ))
(defun c:3x() (command "_zoom" "3x")(princ))
(defun c:4x() (command "_zoom" "4x")(princ))
(defun c:5x() (command "_zoom" "5x")(princ))
(defun c:x2() (command "_zoom" "0.5x")(princ))
(defun c:x4() (command "_zoom" "0.25x")(princ))
(defun c:x5() (command "_zoom" "0.2x")(princ))

(setq _mmacro
	(strcat
		"L:$(substr,$(getvar,clayer),1,8)"
		"$(substr,        ,1,$(-,8,$(strlen,$(getvar,clayer)))) "
		"$(if,$(getvar,orthomode), O,)"
		"$(if,$(getvar,snapmode), S,)"
		"$(if,$(getvar,tabmode), T,)"
		"$(if,$(and,$(=,$(getvar,tilemode),0),$(=,$(getvar,cvport),1)), P)"
		"$(edtime,$(getvar,date), DDD\" \"H:MMa/p)"
		)
	)

(setvar "MODEMACRO" _mmacro)

(princ "\nAutoCAD Komut Kisaltmalari...c 1994-2006 Talia Ltd. ")