Lisp kodu yazmayalı çok oldu, bu tür konularda ehya iyidir. Onun da hafta sonu düğünü var, 1-2 hafta bakamaz siteye. Bu soru bir süre cevapsız kalabilir...
(setq Koordinat (getpoint "..")) ;Örnek Koordinat
(if (or (/= (car Koordinat) 0)(/= (cadr Koordinat) 0)); X ve Y değeri sıfıra eşit değilse
(progn ;devam et
; burda işlemini yaptır
;.....
;.....
)
)
(setq Koordinat (getpoint "..")) ;Örnek Koordinat
(if (/= (car Koordinat) 0); X sıfıra eşit değilse
(progn ;devam et
; X için işlemini yaptır
;.....
;.....
)
)
(if (/= (cadr Koordinat) 0); Y sıfıra eşit değilse
(progn ;devam et
; Y için işlemini yaptır
;.....
;.....
)
)