Как да добавя suffix или prefix към избран текст?

Question

Примерно, имам няколко текста, съдържащи числа от 1 до 6.

Искам пред всяко едно число да се появи някакъв символ, примерно A0.

Как най-лесно и бързо може да стане това?

Teodor_RR · Accepted Answer

Не мисля, че има стандартна функция на AutoCAD за тази цел. Най-бързо и лесно става с lisp, аз ползвам един за тази цел, но не съм го писал аз и не съм убеден, че няма да наруша някое правило ако споделя кода тук или дам линк към друг форум.

Юлиян Пройков · Answer

Teodor,
аз също очаквам решението да е под формата на LISP. Очаквах някой да е тествал такъв, да е доволен, и да е така добър да го сподели :)
Относно "правилата"  - убеден съм, че водещото такова е Взаимопомощ (стига да не пречиш на някого). 
А по въпроса, че не е писано лично от теб - както са казали по-умни глави от мен "След Паисий всички преписват..." така че важното е доброто да се разпространява ...и ако може - усъвършенства. 
Приятен ден! :)

Teodor_RR · Answer

Аз съм доволен от това - има опции за prefix/sufix/prefix+sufix, обектите се селектират с прозорец. Запазвам оригиналния код и името на автора, дано не нарушавам правилата :)

(defun c:PStext (/ rep str ss i sn vl e)
 (vl-load-com)
 ;;; Tharwat 25. Nov. 2011 ;;
 (if
   (and (progn
          (initget "Prefix Suffix Both")
          (setq
            rep (getkword "
 Specify your aim [Prefix/Suffix/Both] :")
          )
          (initget 1)
          (setq str (getstring t "
 Enter Text :"))
        )
        (setq ss (ssget "_:L" '((0 . "TEXT,MTEXT"))))
   )
    (repeat
      (setq i (sslength ss))
       (setq sn (ssname ss (setq i (1- i))))
       (setq vl (vlax-ename->vla-object sn))
       (setq e (entget sn))
       (cond (
              (eq rep "Prefix")
              (vla-put-textstring vl (strcat str (cdr (assoc 1 e))))
             )
             (
              (eq rep "Suffix")
              (vla-put-textstring vl (strcat (cdr (assoc 1 e)) str))
             )
             (
               (eq rep "Both")
              (vla-put-textstring vl (strcat str (cdr (assoc 1 e)) str))
             )
       )
    )
    (princ)
 )
 (princ)
)

Краси Кръстев · Answer

Здравейте, и от мен.

Тедор няма проблем да споделиш LISP който си намерил из интернет пространството.  Много често се случва тук във форума на Аула да се споделят такива лиспове, къде взети наготово, къде попреправени за целта на задачата.

Така че ако смяташ че нещо може да се реши с ЛИПС и имаш наличен подходящ да свърши работата ... тук е мястото да го споделиш :) Определно следва лиспа да свърши работа за добавяне на суфикс/префикс.

Юлиян Пройков · Answer

Аз не успявам да го "подкарам" този лисп.
Само при мен ли има проблем?

Teodor_RR · Answer

Здравейте! Дали е възможно това да се получава заради разместването от форума? Ако искате може да дадете мейл и ще Ви го пратя.

Юлиян Пройков · Answer

Благодаря за предложението и за отделеното време!

Не знам защо лисп-а "не тръгва", сигурно е нещо дребно, но  аз реших да потърся алтернатива из нета и открих това:

https://drive.google.com/file/d/1YV_N8FjxhR7kOKETu7868hd8Xd4AyGwg/view?usp=sharing

Teodor_RR · Answer

Това дори върши по-добра работа, позволява отделно въвеждане на текстове на prefix и suffix. При "моето" се въвежда един текст, който може да бъде prefix или suffix или и двете ... а не са много случаите, в които имам нужда от еднакъв prefix и suffix.

Как да добавя suffix или prefix към избран текст?

Вашият отговор