[Spiteful Berkut]

Честно искал, но безрезультатно. Раньше и сам мог написать lisp'овский код за 5 минут. Но уже почти три года без практики. Подскажите, в каком направлении копать.

Забыл, блин. Поменять значения в тексте на чертеже.

[Nike]

http://forum.dwg.ru/showpost.php?p=474324&postcount=3

[CB]

Код:

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

(vl-string-translate "," "." ",,,,,,,,")

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

для данного конкретного случая, рекомендую такой код:

Код:

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

(vl-string-translate  "."  "," "45.3mm 45.2mm 45.1mm")

за один проход, заменяет сразу все точки на запятые, не зависимо от размера текста.

ps. обогнали...

[Spiteful Berkut]

Не, ребят, мне значение примитива поменять нужно. :-(
Про vl-string-translate я помню. Про доступ к данным примитива забыл начисто.

О. Заработало.

Код:

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

(defun C:DTC()
  (setq P1 (getpoint "Ткните в экран: ") P2 (getcorner "\nИ ещё раз: " P1)) ; Выбор объектов
  (setq nmset (ssget "_C" P2 P1)) ; Создание набора
  
  (setq i -1 setlength (sslength nmset)) ; Длина набора

  (repeat setlength
    (setq i (1+ i) nm (ssname nmset i))
    (setq sp_tx (entget nm))

    (if (= (cdr (assoc 0 sp_tx)) "TEXT")

      (progn
        (setq txt (cdr (assoc 1 sp_tx)))
	(setq txt (vl-string-translate "." "," txt))

	(setq upd (subst
		    (cons 1 txt)
		    (assoc 1 sp_tx)
		    sp_tx
		  ) ; end_subst
	) ; end_setq
	(entmod upd)
	(entupd nm)
      )
    )
  )
)

[getr]

в прикрепленном файле есть команда замены запятых на точки..в обратном направлении наверно сможешь сам..

[Victor]

А смысл программно? Find

[gomer]

find не катит?

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

замена во всем файле:

Код:

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

(defun c:test (/ s)
 (if (setq s (ssget "_x" '((0 . "TEXT"))))
  (foreach a (mapcar (function (lambda (a) (entget (cadr a)))) (ssnamex s))
   (entmod (append a (list (cons 1 (vl-string-translate "." "," (cdr (assoc 1 a)))))))
  )
 )
 (princ)
)

[Spiteful Berkut]

Сообщение от gomer find не катит?

Не катит. Плюсы тоже заменяются.

[gomer]

Сообщение от Spiteful Berkut Плюсы тоже заменяются.

[getr]

->Spiteful Berkut
не поленись.. открой файл там скопируй часть лиспа где речь идет о замене ..поменяй местами знаки и все-можно работать...

[Spiteful Berkut]

gomer, а ты попробуй поставить отметки VetCAD'ом, а потом Find'ом поменять точки на запятые. Плюсы и минусы так же поменяются на запятые. А так же ещё добрых полтора десятка символов. Хотя, надо помощь почитать по find'у. Может я ньюанс какой-то упустил. Но у меня строка !"№;%:?*()+-*/ преобразуется в ,,,,,,,,,,,,,,. Ищу точку "." и заменяю на запятую ",".

getr, у меня уже всё заработало. :-) Я прям горд собой. Что-то ещё помню.

[Disney]

Сообщение от Spiteful Berkut Может я ньюанс какой-то упустил. Но у меня строка !"№;%:?*()+-*/ преобразуется в ,,,,,,,,,,,,,,. Ищу точку "." и заменяю на запятую ",".

убери галочку "Подстановочные знаки"

[IMG]http://s001.***********/i196/1008/29/ca8bc6c5b5f2.gif[/IMG]

[Spiteful Berkut]

Disney, у меня 2007 AutoCAD. :-)

Да ладно уже. Меня и мой скрипт устраивает полностью. :-)

[gomer]

Сообщение от Spiteful Berkut Меня и мой скрипт устраивает полностью

заблокированные слои он обрабатывает?

[Spiteful Berkut]

Сообщение от gomer заблокированные слои он обрабатывает?

Нет. Только то, что попадает в рамку. Но мне и этого достаточно.