;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Harbi65

;; Komutu girip çalışan lispin dosya yada klasör yolunu nasıl bulabiliriz?
;; Lisp içinde kullanacağım.
;; Kendisi (dosya yolunu // çalışma dizinini ) bulması lazım...
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;; Dosya arama fonksiyonu için örnekler :


; Örnek kod no 1:
(findfile "3darray.lsp")
; Sonuç : "C:\\Program Files\\AutoCAD 2007\\support\\3darray.lsp"

; Yukarıdaki örnekte Autocad aranan dosyanın
; kendi çalışma dizini altında dosyayı arayıp bize
; çalışma dizinini belirtiyor..

; Autocad'in çalışma dizini genellikle support klasörüdür.
; Support klasörü dışında kullanıcı ayrı bir çalışma dizini
; tanımlayarak, oluşturduğu program dosyalarını buraya koyabilir.
; Bu durumda yeni örneğimize göz atalım :



; Örnek kod no 2:
(findfile "dosyabul.lsp")
; Sonuç : "C:\\Lispbase\\dosyabul.lsp"

; Yukarıdaki örnekte Autocad aranan dosyayı
; bulup çalışma dizinini görüntülüyor.
; Burada en önemli nokta çalışma dizinin
; C:\Lispbase\  şeklinde olup,
; aranan dosyanın dosyabul.lsp olmasıdır..



; Örnek kod no 3:
(findfile "C:\\Lispbase\\dosyabul.lsp")
; Sonuç  "C:\\Lispbase\\dosyabul.lsp"

; Yukarıdaki örnekte 'dosya yolu'
; kodlama ile tam olarak belirtilmiştir..



; Örnek kod no 4:
(findfile "dialog.dcl")
; Sonuç : "C:\\Lispbase\\dialog.dcl"

; Yukarıdaki örnekte Autocad DCL uzantılı dosyayı
; bulup çalışma dizinini görüntülüyor..
; Bu örnek farklı bir dosya uzantısını arayıp buldu.



; Örnek kod no 5:
(findfile "dosyabul2.lsp")
; sonuç :  nil

; Yukarıdaki örnekte Autocad dosya aradı
; fakat böyle bir dosya olmadığı için
; bize sonucu nil olarak belirtti..



; Şimdi aradığımız dosyayı bir değişkene kaydedelim :


; Örnek kod no 6:
(setq aranandosya (findfile "dosyabul.lsp") )
; Sonuç : "C:\\Lispbase\\dosyabul.lsp"

; Bulunan sonuç yine aynı,
; sadece bir değişkene
; çalışma dizinini atadık..


; Örnek kod no 7:

(setq dosyayolu "C:\\Lispbase\\dosyabul.lsp") ; çalışma dizini tanımlandı
(setq aranandosya (findfile "dosyabul.lsp") ) ; hedef dosya aratıldı


(if (= dosyayolu aranandosya )
   (progn
     (princ "\n Dosya çalışma dizininde değişiklik yoktur !!!")
     (princ)
    )
  )


; Yukarıdaki örnekte ilk önce değişkenlerimizi tanımladık.
; Ardından kontrol mekanizması oluşturuldu..
; Sonuç : Eğer tanımlanan dosya yolu eşit ise aranan dosya'ya
; ilgili uyarı mesajını görüntüle.



; Örnek kod no 8:

(setq dosyayolu "C:\\Lispbase\\dosyabul.lsp") ; çalışma dizini tanımlandı
(setq aranandosya (findfile "dosyabul.lsp") ) ; hedef dosya aratıldı


(if (/= dosyayolu aranandosya )
   (progn
     (princ "\n Dosya çalışma dizininde değişiklik mevcuttur !!!")
     (princ)
    )
  )


; Yukarıdaki örnekte ilk önce değişkenlerimizi tanımladık.
; Ardından kontrol mekanizması oluşturuldu..
; Sonuç : Eğer tanımlanan dosya yolu 
; farklı ise aranan dosya'ya göre     
; ilgili olumsuz uyarı mesajını görüntüle.

; Yukarıdaki verilen örnekte aranan dosyamız
; eğer silindiyse yada yer değiştirdiyse
; kullanıcıya bilgi mesajı verecektir.



; Bu kadar kod örneğinden sonra örnek bir program yazalım :


; A) dsyctr.lsp    >> Çalıştırılan dosya kontrol programı 
; B) cizgiciz.lsp  >> Örnek bir autolisp programı   

; Eğer cizgiciz.lsp dosyamız yer değiştirse yada ismi değişirse
; (ilgili çalışma dizininde yok ise eğer)
; ekranda uyarı mesajı görünecektir..

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun dsyctr (/ dosyayolu aranandosya) 

(setq dosyayolu "C:\\Lispbase\\cizgiciz.lsp") ; çalışma dizini tanımlandı
(setq aranandosya (findfile "cizgiciz.lsp") ) ; hedef dosya aratıldı

 
(if (/= dosyayolu aranandosya )
   (progn
     (princ "\n Dosya çalışma dizininde değişiklik mevcuttur !!!")
     (exit)
     (princ)
    )
  )

 
(if (= dosyayolu aranandosya )
   (progn
   (princ)
    )
  )
 
(princ)
)

; (Princ "Lisp'in çalıştırmak için >> dsyctr << yazınız!")


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(defun c:cizgiciz (/ yr1 yr2)
 
(dsyctr) ; İlk önce kontrol programını çalıştıralım.
 
(setq osm (getvar "osmode"))
(setvar "osmode" 0 )

(setq yr1 (getpoint "\n Çizgi başlıngıç noktası için Tıkla ?! : "))
(setq yr2 (getpoint "\n Çizgi bitiş noktası için Tıkla ?! : "))

(command  "line"  yr1 yr2 "")

 
(setvar "osmode" osm )
(princ)
)

(Princ "Lisp'i çalıştırmak için >> cizgiciz << yazınız!")


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;  ************* Önemli bir bilgi **********************


;; Eğer harici bir program çalıştırırsanız  (dsyctr) kodlaması ile ,
;; Programınızın ilk satırı (defun dsyctr ()  şeklinde olması gerekiyor.


;; Eğer harici bir program çalıştırırsanız  (c:dsyctr) kodlaması ile ,
;; Programınızın ilk satırı (defun c:dsyctr () şeklinde olması gerekiyor.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(setq lisp_path “X:\\AUTOLISP\\”) ; sets the path
(if (findfile (strcat lisp_path "utils1.lsp"))
(load (strcat lisp_path "utils1.lsp"))
)
(if (findfile (strcat lisp_path "utils2.lsp"))
(load (strcat lisp_path "utils2.lsp"))
)