;;; TURKCE KOMUTLAR - AutoCAD icin Turkce kisayollar
;;; eplisp 2.0.0 - https://eplisp.com/tr/
;;; Ucretsiz. AutoCAD ve GstarCAD icin. Yuklemek icin: APPLOAD
;;; Hicbir garanti verilmez; sonuclari kontrol ederek kullanin.
;;; Komutlar: CIZGI, PCIZGI, NOKTA, KUTU, TARAMA, YAZI, ORTAYAZI, SAGYAZI, MERKEZYAZI, BLOKEKLE, BLOKOLUSTUR, WBLOK, KOPYALA, TASI, TEKTASI, SIL, TEKSIL, DONDUR, OLCEKLE, AYNALA, OFSET, UZAT, KES, KIR, PATLAT, YUVARLA, PAHKIR, BOL, DEGISTIR, OZELLIK, GERI, PDUZENLE, YAZIDUZENLE, KATMAN, KATMANAYARLA, KATMANOLUSTUR, KATMANDONDUR, KATMANCOZ, CIZGITIPI, YAKINLAS, PENCERE, ONCEKI, TUMUNU, YAKINSINIR, YAKINSANAL, KAYDIR, YENILE, YENIHESAPLA, BAKIS, MESAFE, BILGI, AC, KAYDET, TEMIZLE, YUVARLA0, YUVARLA10, SONSIL, TUMUAC, TUMUKAPAT, DIKMESAFE, TEMIZLEHEPSI, DERECE90, DERECE180, DERECE270

;;; TURKCE KOMUTLAR - AutoCAD komutlari icin Turkce kisayollar (KOPYALA, TASI, SIL ...).
;;; Her kisayol ilgili AutoCAD komutunu baslatir; gerisini AutoCAD sorar.

(defun c:CIZGI () (command "_.LINE") (princ)) ; Cizgi ciz -> LINE
(defun c:PCIZGI () (command "_.PLINE") (princ)) ; Polyline ciz -> PLINE
(defun c:NOKTA () (command "_.POINT") (princ)) ; Nokta koy -> POINT
(defun c:KUTU () (command "_.RECTANG") (princ)) ; Dikdortgen ciz -> RECTANG
(defun c:TARAMA () (command "_.HATCH") (princ)) ; Tarama yap -> HATCH
(defun c:YAZI () (command "_.TEXT") (princ)) ; Tek satir yazi -> TEXT
(defun c:ORTAYAZI () (command "_.TEXT" "_J" "_M") (princ)) ; Orta hizali yazi -> TEXT J M
(defun c:SAGYAZI () (command "_.TEXT" "_J" "_R") (princ)) ; Saga hizali yazi -> TEXT J R
(defun c:MERKEZYAZI () (command "_.TEXT" "_J" "_C") (princ)) ; Ortalanmis yazi -> TEXT J C
(defun c:BLOKEKLE () (command "_.INSERT") (princ)) ; Blok ekle -> INSERT
(defun c:BLOKOLUSTUR () (command "_.BLOCK") (princ)) ; Blok olustur -> BLOCK
(defun c:WBLOK () (command "_.WBLOCK") (princ)) ; Bloku dosyaya yaz -> WBLOCK
(defun c:KOPYALA () (command "_.COPY") (princ)) ; Kopyala -> COPY
(defun c:TASI () (command "_.MOVE") (princ)) ; Tasi -> MOVE
(defun c:TEKTASI () (command "_.MOVE" "_SI") (princ)) ; Tek obje tasi -> MOVE SI
(defun c:SIL () (command "_.ERASE") (princ)) ; Sil -> ERASE
(defun c:TEKSIL () (command "_.ERASE" "_SI") (princ)) ; Tek obje sil -> ERASE SI
(defun c:DONDUR () (command "_.ROTATE") (princ)) ; Dondur -> ROTATE
(defun c:OLCEKLE () (command "_.SCALE") (princ)) ; Olcekle -> SCALE
(defun c:AYNALA () (command "_.MIRROR") (princ)) ; Aynala -> MIRROR
(defun c:OFSET () (command "_.OFFSET") (princ)) ; Ofset (paralel kopya) -> OFFSET
(defun c:UZAT () (command "_.EXTEND") (princ)) ; Uzat -> EXTEND
(defun c:KES () (command "_.TRIM") (princ)) ; Buda (trim) -> TRIM
(defun c:KIR () (command "_.BREAK") (princ)) ; Kir (break) -> BREAK
(defun c:PATLAT () (command "_.EXPLODE") (princ)) ; Patlat -> EXPLODE
(defun c:YUVARLA () (command "_.FILLET") (princ)) ; Kose yuvarla -> FILLET
(defun c:PAHKIR () (command "_.CHAMFER") (princ)) ; Pah kir -> CHAMFER
(defun c:BOL () (command "_.DIVIDE") (princ)) ; Esit parcaya bol -> DIVIDE
(defun c:DEGISTIR () (command "_.CHANGE") (princ)) ; Ozellik degistir (CHANGE) -> CHANGE
(defun c:OZELLIK () (command "_.CHPROP") (princ)) ; Ozellik degistir (CHPROP) -> CHPROP
(defun c:GERI () (command "_.STRETCH") (princ)) ; Esnet (stretch) -> STRETCH
(defun c:PDUZENLE () (command "_.PEDIT") (princ)) ; Polyline duzenle -> PEDIT
(defun c:YAZIDUZENLE () (command "_.TEXTEDIT") (princ)) ; Yazi duzenle -> TEXTEDIT
(defun c:KATMAN () (command "_.LAYER") (princ)) ; Katman yoneticisi -> LAYER
(defun c:KATMANAYARLA () (command "_.-LAYER" "_S") (princ)) ; Aktif katmani ayarla -> -LAYER S
(defun c:KATMANOLUSTUR () (command "_.-LAYER" "_M") (princ)) ; Katman olustur ve aktif yap -> -LAYER M
(defun c:KATMANDONDUR () (command "_.-LAYER" "_F") (princ)) ; Katman dondur -> -LAYER F
(defun c:KATMANCOZ () (command "_.-LAYER" "_T") (princ)) ; Katman coz -> -LAYER T
(defun c:CIZGITIPI () (command "_.LINETYPE") (princ)) ; Cizgi tipleri -> LINETYPE
(defun c:YAKINLAS () (command "_.ZOOM") (princ)) ; Yakinlas / uzaklas -> ZOOM
(defun c:PENCERE () (command "_.ZOOM" "_W") (princ)) ; Pencereyle yakinlas -> ZOOM W
(defun c:ONCEKI () (command "_.ZOOM" "_P") (princ)) ; Onceki gorunum -> ZOOM P
(defun c:TUMUNU () (command "_.ZOOM" "_A") (princ)) ; Tumunu goster -> ZOOM A
(defun c:YAKINSINIR () (command "_.ZOOM" "_E") (princ)) ; Cizim sinirlarina yakinlas -> ZOOM E
(defun c:YAKINSANAL () (command "_.ZOOM" "_V") (princ)) ; Sanal ekran -> ZOOM V
(defun c:KAYDIR () (command "_.PAN") (princ)) ; Kaydir -> PAN
(defun c:YENILE () (command "_.REDRAW") (princ)) ; Ekrani yenile -> REDRAW
(defun c:YENIHESAPLA () (command "_.REGENALL") (princ)) ; Yeniden olustur -> REGENALL
(defun c:BAKIS () (command "_.VPOINT") (princ)) ; Bakis noktasi -> VPOINT
(defun c:MESAFE () (command "_.DIST") (princ)) ; Mesafe olc -> DIST
(defun c:BILGI () (command "_.LIST") (princ)) ; Obje bilgisi -> LIST
(defun c:AC () (command "_.OPEN") (princ)) ; Dosya ac -> OPEN
(defun c:KAYDET () (command "_.QSAVE") (princ)) ; Kaydet -> QSAVE
(defun c:TEMIZLE () (command "_.PURGE") (princ)) ; Kullanilmayanlari temizle -> PURGE

;;; Komut + secenek gerektiren kisayollar
(defun c:YUVARLA0 () (command "_.FILLET" "_R" 0.0) (command "_.FILLET") (princ)) ; yaricapi 0 yapip yuvarla
(defun c:YUVARLA10 () (command "_.FILLET" "_R" 10.0) (command "_.FILLET") (princ)) ; yaricapi 10 yapip yuvarla
(defun c:SONSIL () (command "_.ERASE" "_L" "") (princ)) ; son cizilen objeyi sil
(defun c:TUMUAC () (command "_.-LAYER" "_ON" "*" "_T" "*" "") (princ)) ; tum katmanlari ac ve coz
(defun c:TUMUKAPAT () (command "_.-LAYER" "_OFF" "*" "_N" "") (princ)) ; aktif katman disindakileri kapat
(defun c:DIKMESAFE () (command "_.DIST" "_nea" pause "_per" pause) (princ)) ; bir noktadan cizgiye dik mesafe
(defun c:TEMIZLEHEPSI () (command "_.-PURGE" "_A" "*" "_N") (princ)) ; sormadan hepsini temizle

;;; Secili objeleri sabit aciyla dondurur
(defun tk:dondur (aci / ss p)
  (princ (strcat "\nDondurulecek objeler (" (itoa aci) " derece): "))
  (if (and (setq ss (ssget)) (setq p (getpoint "\nDonme merkezi: ")))
    (command "_.ROTATE" ss "" "_non" p aci)
  )
  (princ)
)
(defun c:DERECE90 () (tk:dondur 90))
(defun c:DERECE180 () (tk:dondur 180))
(defun c:DERECE270 () (tk:dondur 270))


(princ "\n[eplisp] yuklendi. Komutlar: CIZGI, PCIZGI, NOKTA, KUTU, TARAMA, YAZI, ORTAYAZI, SAGYAZI, MERKEZYAZI, BLOKEKLE, BLOKOLUSTUR, WBLOK, KOPYALA, TASI, TEKTASI, SIL, TEKSIL, DONDUR, OLCEKLE, AYNALA, OFSET, UZAT, KES, KIR, PATLAT, YUVARLA, PAHKIR, BOL, DEGISTIR, OZELLIK, GERI, PDUZENLE, YAZIDUZENLE, KATMAN, KATMANAYARLA, KATMANOLUSTUR, KATMANDONDUR, KATMANCOZ, CIZGITIPI, YAKINLAS, PENCERE, ONCEKI, TUMUNU, YAKINSINIR, YAKINSANAL, KAYDIR, YENILE, YENIHESAPLA, BAKIS, MESAFE, BILGI, AC, KAYDET, TEMIZLE, YUVARLA0, YUVARLA10, SONSIL, TUMUAC, TUMUKAPAT, DIKMESAFE, TEMIZLEHEPSI, DERECE90, DERECE180, DERECE270")
(princ)