| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Модификация эксперессовского лиспа acettxt.lsp (автонумерация текста)

Модификация эксперессовского лиспа acettxt.lsp (автонумерация текста)

Закрытая тема
Поиск в этой теме
Непрочитано 30.03.2009, 00:22 #1
Модификация эксперессовского лиспа acettxt.lsp (автонумерация текста)
Neznayka
 
Регистрация: 24.03.2005
Сообщений: 319

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

Последний раз редактировалось Neznayka, 30.03.2009 в 12:21.
Просмотров: 1983
 
Непрочитано 30.03.2009, 00:52
#2
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,119


Вроде не новичок-то на форуме, а с названием такой косяк! Исправляй! Времени, как всегда - 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
  )
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.

Последний раз редактировалось Кулик Алексей aka kpblc, 30.03.2009 в 01:16.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 30.03.2009, 12:26
#3
Neznayka


 
Регистрация: 24.03.2005
Сообщений: 319


Кулик Алексей aka kpblc, огромное спасибо
сегодня гляну
з.ы. я то по ламерству своему думал, что там дело в одной строчке, а тут столько
Neznayka вне форума  
 
Непрочитано 31.03.2009, 01:11
#4
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,119


На самом деле причина в 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
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
Закрытая тема
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Модификация эксперессовского лиспа acettxt.lsp (автонумерация текста)

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Необходимо убрать горизонатальную связь между фермами. nikos85 Конструкции зданий и сооружений 24 07.10.2008 17:02
Как убрать рамку у растрового изображения? Sanya_3d AutoCAD 9 27.02.2008 09:25
Как убрать выделение в автокаде? Владимир В Программирование 2 06.02.2008 17:00
AutoCad2007 - как убрать эффект визуализации? Анка AutoCAD 5 06.02.2008 16:59
название поля в Access или как убрать пробел(( Димас Программирование 7 03.08.2006 08:38