;**************************************************
; Ana program yazımı             
; iki adet lispi tek lisp programı
; olarak çalıştırma fikri..

(defun c:cpmov()  ; yeni komutumuzu tanımlayalım..
(c:mov1)  ; move yapan lispi çalıştıralım..
(c:cpy1)  ; copy yapan lispi çalıştıralım..
(princ)
)
; Yeni komutun uygulanması için açıklama yapalım..
(Princ "Lispi çalıştırmak için > cpmov < yazınız! ")

;  Ana program bitti..             
;                                   
; **************************************************


; ssget ile objeyi seçip
; bir noktadan diÄŸer noktaya
; taşıma yapma lispi


(defun c:mov1 ()
(prompt "Taşınacak objeleri seç !")
(setq secim1 (ssget))
(setq nok1 (getpoint "\n Objenin referans noktasını sec:"))
(setq nok2 (getpoint "\n Obje nereye taşınacak ? TıKLa:"))
(command "move" secim1 "" nok1 nok2 )
(princ)
)

; Mevcut lisp için komut açıklama uyarısı iptal ettik.
; (Princ "Lispi çalıştırmak için > mov1 < yazınız! ")



; ssget ile seçilen objeyi
; bir noktadan baÅŸka bir noktaya
; copyalama yapma lispi


(defun c:cpy1 ()
(prompt "Kopyalanacak objeleri seç !")
(setq secim1 (ssget))
(setq nok1 (getpoint "\n Objenin referans noktasını sec:")) 
(setq nok2 (getpoint "\n Nereye kopyalanacak? TıKLa:"))
(command "copy" secim1 "" nok1 nok2 )
(princ)
)

; Mevcut lisp için komut açıklama uyarısı iptal ettik.
; (Princ "Lispi çalıştırmak için > cpy1 < yazınız! ")