[Сергей160484]

Существует куча однострочных цифр на чертеже (положительных и отрицательных) на определенном слое. Необходимо выделить все их окном и в положительных цифрах подставить знак + без пробела (например было 5.00,нужно +5.00), а если число со знаком минус, то оставить его без изменения. Помогите можалуйста написать код!!! Заранее спасибо!!!

[TararykovDG]

Сергей160484, цифры на чертеже представлены только в виде примитивов типа text и mtext, или же надо учитывать и атрибуты блоков и размерные выноски и мультивыноски и т. д.?

[hwd]

Сообщение от Сергей160484 Помогите можалуйста написать код!!!

Почитайте про регулярные выражения.

[Сергей160484]

Сообщение от TararykovDG Сергей160484, цифры на чертеже представлены только в виде примитивов типа text и mtext, или же надо учитывать и атрибуты блоков и размерные выноски и мультивыноски и т. д.?

только text!!!

[zenon]

Команда _DSTP_ANNOPRESUF из набора ToolPAC

[TararykovDG]

Сергей160484, попробуй так, но подстваит "+" только для текста и только если он начинается с цифры, т.е.
"4" - "+4'
"aaa 6 bbb7 ..." - отставит без изменения
"8aaa" - "+8aaa"

Код:

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

(defun Add-Plus-To-Text( / nbr item ed)
  (vl-load-com)
  (if (setq nbr (ssget "_X" (list (cons 0 "TEXT"))))
    (foreach item (vl-remove-if 'listp (mapcar 'cadr (ssnamex nbr)))
      (setq ed (entget item))
      (if (wcmatch (cdr (assoc 1 ed)) "#*")
    (progn
      (setq ed (subst (cons 1 (strcat "+" (cdr (assoc 1 ed)))) (assoc 1 ed) ed))
      (entmod ed)
    )
      )
    )
  )
); End Add-Plus-To-Text

если надо по другому, то уточни, что именно менят, а что нет

[Сергей160484]

TararykovDG, спасибо, все работает!!! А можно сделать возможность, чтобы программа выводила запрос на выбор цифр для которых нужно подставиь знак + либо окном, либо по-отдельности???

[TararykovDG]

Сергей160484, пробуй

Код:

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

(defun Add-Plus-To-Text( / type_select nbr item ed)
  (vl-load-com)
  (if (not (vl-catch-all-error-p
	     (progn
	       (initget "0 1")
	       (setq type_select (vl-catch-all-apply 'getkword (list "\nЗадайте способ выбора объектов <Все> [0 - Все/1 - Рамкой]: "))
		     )
	     )
	   )
      )
    (progn
      (cond
	((= type_select "0") (setq nbr (ssget "_X" (list (cons 0 "TEXT")))))
	((= type_select "1") (setq nbr (ssget (list (cons 0 "TEXT")))))
	(t (setq nbr (ssget "_X" (list (cons 0 "TEXT")))))
      )
      (if nbr
        (foreach item (vl-remove-if 'listp (mapcar 'cadr (ssnamex nbr)))
          (setq ed (entget item))
          (if (wcmatch (cdr (assoc 1 ed)) "#*")
	    (progn
	      (setq ed (subst (cons 1 (strcat "+" (cdr (assoc 1 ed)))) (assoc 1 ed) ed))
	      (entmod ed)
	    )
          )
        )
      )
    )
  )
); End Add-Plus-To-Text

[Сергей160484]

TararykovDG, спасибо огромнейшее!!! Именно то, что нужно!!! Все прекрасно работает!!!!

[Disney]

Сергей160484, давно писал "калькулятор" там была опция проставлять знак "+"
[IMG]http://s006.***********/i213/1009/1c/94f2a1bc7808.jpg[/IMG]

[99fr]

Disney
Попробовал вашу программку но что то не работает.

Команда: (LOAD
"C:/DOCUME~1/7B5C~1/LOCALS~1/Temp/Rar$DR15.1250/Geo_Calk_09.VLX") Вызова
команды: geo_calknil
Команда: geo_calknil
Неизвестная команда "GEO_CALKNIL". Для вызова справки нажмите F1.

В чем может быть причина и как устранить.
Автокад 2009.
Благодарю.

[Disney]

99fr, имя команды Geo_calk

[Composter]

для добавления суффиксов и префиксов к текстам и атрибутам я использую это

http://dwg.ru/dnl/?id=1929&page=0

, а чтобы выделить только положительные цифры команда _fillter и в строке значения текста забить вот это "#*" (без кавычек)

[99fr]

Disney,


Спасибо.

[99fr]

Disney
Здравствуйте.
При умножении, делении и суммировании все работает как нужно, но при вычитании пред числом появляется знак минус.
Т.е. имея числа 101,50 и 201,50 при вычитании из них 1,50 получаем -100,00 и -200,00)
Подскажите пожалуйста, как избежать появления знака минус в этом случае?
Спасибо.

[Disney]

Сообщение от 99fr При умножении, делении и суммировании все работает как нужно, но при вычитании пред числом появляется знак минус. Т.е. имея числа 101,50 и 201,50 при вычитании из них 1,50 получаем -100,00 и -200,00)

там написано число-набор, где число в твоём случаи 1.50, а набор это тексты 101.50 и 201.50.
Поэтому для того чтобы из набора вычесть число, выбираем число+набор, а в качестве числа вводим -1.50.

[99fr]

Сообщение от Disney Поэтому для того чтобы из набора вычесть число, выбираем число+набор, а в качестве числа вводим -1.50.

Здорово, Все перепробовал, а до такой комбинации не додумался. Все сработало.
Спасибо.