[archi2002]

Доброго времени суток , уважаемые форумчане!
Работаю в 2007 акаде. Возникла необходимость перевода текста , в слой с таким же названием. Например: на чертеже есть текст 5560, 2030, 1040,...нужно , чтобы текст 5560 стал слоем "5560", 2030-слоем "2030",1040-слоем "1040"...Возможно, кто-нибудь встречал , или имеет такой лисп. Нужен , как воздух. Спасибо.

[Солидворкер]

Поскольку нужен Лисп, перенес в Программирование

[Дима_]

Что есть текст? одностройчный, многостроячный, выноски, параметр размерной строки, атрибут блока. Пример файла был бы тоже не лишним.

[archi2002]

Текст однострочный. Пример файла прилагаю.

[Дима_]

Другое дело:

Код:

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

(defun sstolist (ss / i lst); конвертирует набор в список
(setq i 0)
(if ss
(repeat (sslength ss)
(setq lst (append lst (list (ssname ss i))) i (1+ i))
));end of repeat & if
lst
);end of sstolist
(defun c:texttolay ()
(mapcar '(lambda (text)
(if (/= (cdr (assoc 1 (entget text))) "") (entmod (subst (cons 8 (cdr (assoc 1 (entget text)))) (assoc 8 (entget text)) (entget text))))
);end of lambda
(sstolist (ssget (list (cons 0 "*text")))))
);end of texttolay

запускать командой texttolay

[archi2002]

То , что нужно Дима. Респект и большое человеческое спасибо.

[Шмуль]

В вопросе Перевод текста "х" в слой с названием "х" автор archi2002 просил цитата:


(Доброго времени суток , уважаемые форумчане!
Работаю в 2007 акаде. Возникла необходимость перевода текста , в слой с таким же названием. Например: на чертеже есть текст 5560, 2030, 1040,...нужно , чтобы текст 5560 стал слоем "5560", 2030-слоем "2030",1040-слоем "1040"...Возможно, кто-нибудь встречал , или имеет такой лисп. Нужен , как воздух. Спасибо.)

Был написан лисп авторДима_(defun sstolist (ss / i lst); конвертирует набор в список
(setq i 0)
(if ss
(repeat (sslength ss)
(setq lst (append lst (list (ssname ss i))) i (1+ i))
));end of repeat & if
lst
);end of sstolist
(defun c:texttolay ()
(mapcar '(lambda (text)
(if (/= (cdr (assoc 1 (entget text))) "") (entmod (subst (cons 8 (cdr (assoc 1 (entget text)))) (assoc 8 (entget text)) (entget text))))
);end of lambda
(sstolist (ssget (list (cons 0 "*text")))))
);end of texttolayУ меня этот лисп тоже работает отлично, но если перед текстом стоит пробел, то лисп не работает. Можно ли дописать/переписать лисп для текста с пробелом. Текст односточный AutoCAD2008-2009 Спасибо!

[Дима_]

Намек понял:

Код:

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

(defun sstolist (ss / i lst); конвертирует набор в список
(setq i 0)
(if ss
(repeat (sslength ss)
(setq lst (append lst (list (ssname ss i))) i (1+ i))
));end of repeat & if
lst
);end of sstolist
(defun erspac (text)
(if (= (substr text 1 1) " ")
(erspac (substr text 2))
text
);end of if
);end of erspac
(defun c:texttolay ()
(mapcar '(lambda (text)
(if (/= (cdr (assoc 1 (entget text))) "") (entmod (subst (cons 8 (erspac (cdr (assoc 1 (entget text))))) (assoc 8 (entget text)) (entget text))))
);end of lambda
(sstolist (ssget (list (cons 0 "*text")))))
);end of texttolay

[Шмуль]

Все работает отлично! Огромный респект Дима_, удачи!!!