[Neznayka]

В эксперессах есть лисп acettxt.lsp, он автонумерует текст, но при выборе функции добавления суффикса(префикса), ЛИСП вставляет пробел между тем что надо пронумеровать и самим номером, Короче ЛИСП делает так: а 1, а 2, а 3 … а 100, а мне нужно а1, а2, а3 … а100

[Кулик Алексей aka kpblc]

Вроде не новичок-то на форуме, а с названием такой косяк! Исправляй! Времени, как всегда - 24 часа.
---
Добавлено:
в файле acettxt.lsp найди объявление функции place_tcount и замени ее на

Код:

[Выделить все]

(defun place_tcount (org num mode str /)

  (cond
    ((or (not mode)
         (equal mode "Overwrite")
         ) ;or
     (setq str num) ;setq
     )    ;cond #1
    ((equal mode "Prefix")
     (setq str (strcat num org)) ;setq
     )    ;cond #2
    ((equal mode "Suffix")
     (setq str (strcat org num)) ;setq
     )    ;cond #3
    ((equal mode "Find&replace")
     (setq str (acet-str-replace str num org)) ;setq
     )    ;cond #4
    )     ;cond close

  str
  )

[Neznayka]

Кулик Алексей aka kpblc, огромное спасибо
сегодня гляну
з.ы. я то по ламерству своему думал, что там дело в одной строчке, а тут столько

[Кулик Алексей aka kpblc]

На самом деле причина в 2 (!) строчках. Но мне было проще весь код привести. Вот оригинальный вариант (отличия выделены красным):

Код:

[Выделить все]

(defun place_tcount (org num mode str / )
 
(cond
 ((or (not mode)
      (equal mode "Overwrite")
  );or
  (setq str num);setq
 );cond #1
 ((equal mode "Prefix")
  (setq str (strcat num " " org));setq
 );cond #2
 ((equal mode "Suffix")
  (setq str (strcat org " " num));setq
 );cond #3
 ((equal mode "Find&replace")
  (setq str (acet-str-replace str num org));setq
 );cond #4
);cond close
 
str
);defun place_tcount