Bu lisple Autocad'de ki yazıları komut satırına yazdırdıktan sonra istediğim yere kopyalayabilmek için yazdım. Bu benim yazdığım ilk lisp. Sizden çok şey öğrendim. Umarım birilerine faydam dokunur.
Kod:
(defun c:TBBB (/ text say text c teksecim tv liste)
(setq text (ssget))
(setq say (sslength text))
(setq c 0)
(setq liste (list ()))
(repeat say
(setq teksecim (ssname text c))
(setq tv (cdr (assoc 1 (entget teksecim))))
(cons liste tv)
(setq c (+ c 1))
(print tv)
)
(princ)
)