Selamun aleykum
bazen öyle oluyor ki, işlem zamanı seçdiyimiz nesneleri seçdiyimiz zaman bilerekden ve ya bilmeyerekden işlemimizi yarım kesiyoruk. ve seçdiyimiz nesneleri yeniden seçmemek için bu lisp yardım olur. Note: AutoCad da bu işleme benzer bi komut var ama :
1) bu komutda nesneleri aynı anda yani bize lazım olan nesneleri tek tek deyil bir hamlede seçmiş olursak ve işlemimizi yarımkessek o zaman Örnek : Copy enter P enter yapdıkda bu işlem aynen verilen Lisp gibi çalışır
2) bu komutda nesneleri aynı anda deyil tek tek seçersek ve işlemimizi yarımkessek o zaman Örnek : Copy enter P enter yapdıkda seçdiyimiz nesnelerden yalnız ilk seçdiyimiz nesne seçilecekdir.
ve verilen lispin özelliyide budur.Tek tek ve ya aynı anda seçilen nesneleri geri getirir. Note : Bu lisp benim kendi lispim deyil. Tercüme yapılıb size sunulmakda.
;------------------------------------------------------------
; örnek çağrı: get-last-select (gls)
(defun c:gls()
(if (= (type last_select_selection) 'PICKSET)
(if (> (sslength last_select_selection) 0)
(progn
(sssetfirst nil last_select_selection)
(prompt "\n son değişken yeni bir takım kurdu last_select_selection")
)
(prompt "\n son değişken takım boş")
)
(prompt "\n Çizimde henüz tek bir dizi seçilmemiş ")
)
(princ)
)
;------------------------------------------------------------