[CB]

Честно скажу – сложно сформулировать вопрос, но попробую. Небольшой экскурс по проблеме.
Задача состоит в переводе DOS-овских чертежей, в которых коды шрифтов не совпадают
с Windows. Задачу перевода текста, блоков и attdef решил, остались размеры.
Пример:
(setq txt_win ‘(49 52 46 50 53 130 128 131 130 128 130 131 130 43 48 46 50 52))
; избавляемся от спецсимволов, формирующих размер с допуском
(foreach X '(128 129 130 131 32) (setq txt_win (vl-remove X txt_win)))
(49 52 46 50 53 43 48 46 50 52)
(mapcar ' (lambda(X) (vl-list-length (vl-remove-if-not '(lambda (Y)
(equal Y X)) txt_win)) ) '(43 45) )
(1 0) ; комбинация для плюсов(43) и минусов(45)
Дальше не знаю в каком направлении двигаться, ведь таких комбинаций может быть 6:
(0 0), (1 0), (2 0).(0 1), (0 2), (1 1). Надо иметь 3 переменные, чтобы
изменить код ‘1 в списке размерого примитива
(setq txt_win (strcat "\\A1;" NOM "{\\H0.5x;\\S" DV "^" DN ";}").
C чем лучше работать со списками или с текстом

[Fogel]

Может всеж проще готовый конвертор? У мя валяется (WNEWCP MFC Application) 200кил, надо, так закину...

[{Smirnoff}]

Вот есть готовая программа http://www.autocad.ru/cgi-bin/f1/board.cgi?t=20297rW .

[CB]

Если честно то сомневаюсь что готовая программа поможет(хотя надо попробовать). Ведь в новом шрифте нет тех спецкодов которые
были в DOS-овском шрифте и текст будет выглядеть как
14??????+0.2. и какпрограмме "объяснить" что к примеру
DOSовкой букве "Г" соответствует Windowская "К"?
Пришлось самому писать таблицу соответствия кодов (DOS . WIN)

[CB]

Может я не очень правильно поставил вопрос - мне нужен не конвертер, нужно например список
(49 52 46 50 53 43 48 46 50 52) разбить на
((49 52 46 50 53 ) (43 48 46 50 52) nil) или
(49 52 46 50 53 43 48 46 50 52 43 48 46 50) разбить на
((49 52 46 50 53 ) (43 48 46 50 52) (43 48 46 50)) или
(49 52 46 50 53) разбить на ((49 52 46 50 53) nil nil)
Условие разбивки наличие 43 или 45.
И еще я не определился что лучше - разбивать список или
(vl-list->string список) т.е текст.

[Елпанов Евгений]

>CB
Решил и в этой ветке оветить, вроде тебе понравилось иметь дело с рекурсиями

Код:

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

(defun trim_43_45 (lst tmp)
  (cond
    ((null lst) (if tmp (list (reverse tmp))))
    ((and (/= (car lst) 43) (/= (car lst) 45))
     (trim_43_45 (cdr lst) (cons (car lst) tmp))
     )
    (t (cons (reverse tmp) (trim_43_45 (cdr lst) (list (car lst)))))
  )
)

Проверка:

Код:

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

(trim_43_45 '(49 52 46 50 53 43 48 46 50 52) nil)
;=> ((49 52 46 50 53) (43 48 46 50 52))

(trim_43_45 '(49 52 46 50 53 43 48 46 50 52 43 48 46 50) nil)
;=> ((49 52 46 50 53) (43 48 46 50 52) (43 48 46 50))

(trim_43_45 '(49 52 46 50 53) nil)
;=> ((49 52 46 50 53))

[CB]

Это конечно то что нужно, но требует серьезного осмысления.
Пока очень сложно для понимания, ведь я хотел идти другим путем, попроще. Буду разбираться с рекурсией функции.
Спасибо Евгений.

[C1]

Не уверен что это Вам поможет, но я подобное делаю в Wordе. Можно и макросом. Заменой. "43" -> ")(43"
Конец строки сочетание символов ^p.

[Елпанов Евгений]

>CB
Если нужна простая замена 43<=>45 то это можно решить гараздо проще...
Если интересно - спрашивайте

[Елпанов Евгений]

Решил помочь твоему горю...

Код:

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

;|**************** multi-subst.lsp **************************
;	Библиотечная функция
;	множественной замены одних элементов списка
;	на другие.
;	Функция применима во всех случаях, когда возможна
;	проверка на соответствие через "EQUAL"
;	Автор  Евгений Елпанов.
;***********************************************************
;   Аргументы:
;	lst — список, в котором необходимо произвести замены
;	lst-i — соответствий ((заменяемое заменитель) ...())
;***********************************************************
;	Пример вызова
;	(multi-subst '(1 2 3 4 5) '((1 "a") (3 "b")))
;	функция вернет ("a" 2 "b" 4 5)
|;
(defun multi-subst (lst lst-i)
  (eval
    (list
      (function mapcar)
      (list
	(function function)
	(list
	  (function lambda)
	  '(a)
	  (cons
	    (function cond)
	    (reverse
	      (cons
		'(t a)
		(reverse
		  (mapcar
		    (function
		      (lambda (a)
			(list
			  (list
			    (function equal)
			    (car a)
			    'a
			  ) ;_  list
			  (cadr a)
			) ;_  list
		      ) ;_  lambda
		    ) ;_  function
		    lst-i
		  ) ;_  mapcar
		) ;_  reverse
	      ) ;_  cons
	    ) ;_  reverse
	  ) ;_  cons
	) ;_  cons
      ) ;_  list
      'lst
    ) ;_  list
  ) ;_  eval
) ;_  defun

[CB]

Да нет же Евгений! Тот код, который с рекурсией как раз то, что нужно. Уже продолжил работу над программой, на которой заткнулся, используя этот код. В принципе я эту задачу уже решал раньше, правда через... и хотелось посмотреть как работают профи. (Вывод - как еще долго идти к мастерству). А за эту программу спасибо, может пригодится где.
Спасибо за помощь, если что, буду спрашивать еще.