HERYERDEN YAZI KOPYALA
Posted by miyatu Aralık 14, 2010
Evet arkadaşlar kısa ama cok kullanışlı bir lisp daha…
İstadiğiniz heryerden (örnek:xref, blok vs. gibi text objesine direk ulaşamadıgınız yerler) var olan bir text üzerine kopyalama yapar…
Herzamanki gibi kodları kopyalayın ve bir not defterine yapıstırıp uzantısı LSP olacak sekilde kaydedin.
Comman satırına AP yazıp cıkan pencerede kaydettiğiniz dosyayı bulun ve load edin.
Tekrar command satırına yy yazın…
Kolay gelsin…
(bu yazıdan sonrasını kopyalayın)
(defun c:yy ()
(setq st (cdr (assoc 1 (entget (car (nentsel))))))
(setq dt 0)
(while(/= dt nil)
(setq dt (entget (car (nentsel))))
(setq dt (subst (cons 1 st) (assoc 1 dt) dt))
(entmod dt))
)
