;; =====================================================================
;; Dopis.lsp - dopisanie tego samego tekstu na koncu wielu napisow
;; Polecenie: DOPIS
;; AutoCAD / GstarCAD (AutoLISP). Opis i instalacja:
;; https://fixcontrol.pl/narzedzia/skrypty-autocad
;; =====================================================================

(defun c:DOPIS ( / ss i obj dopis )
  (vl-load-com)
  ;; tekst do dopisania (dozwolone spacje)
  (setq dopis (getstring t "\nPodaj tekst do dopisania: "))

  (setq ss (ssget '((0 . "TEXT,MTEXT"))))
  (if ss
    (progn
      (setq i 0)
      (while (< i (sslength ss))
        (setq obj (vlax-ename->vla-object (ssname ss i)))
        (vla-put-TextString obj (strcat (vla-get-TextString obj) dopis))
        (setq i (1+ i))
      )
      (princ (strcat "\nDopisano \"" dopis "\" do " (itoa (sslength ss)) " tekstow."))
    )
    (princ "\nNie wybrano tekstow.")
  )
  (princ)
)

(princ "\nDOPIS loaded. Type DOPIS to run.")
(princ)