[Gostushev]

Коллеги и в первую очередь Лентяй!!!
Обрисовываю ситуацию - спецификации в акаде делаем самым "дедовским" способом - они есть набор линий и текста, причем текс для каждой ячейки таблицы свой. Можете меня ругать и опускать, но лучшей системы контроля за тем что делаешь не вижу. когда переправишь все цифирки в спецификации задумаешься что делаешь. Так вот, когда все строчки заполнены нужно посчитать скажем общую массу изделия, для этого нужно сложить все цифирки из столбца "масса всех детале". Процесс в принципе не сложный но иногда можно ошибиться, ошибка все равно вылазит когда составляешь выборку металла, и поэтому она неприятна. Вот бы прогу которая просила бы выделить какой то набор текстовых строчек, а потом бы суммировала цифры из каждой строчки друг с другом. И было бы вообще круто если текст можно было выделять одной рамкой за раз или щелкать по разным текстовым областям. Вот. Надеюсь понятно объяснил что хочу :-) Жду комментариев и предложений.

[ZZZ]

Код:

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

;;;;;;Сумма значений текста
(defun c:CalcTXTVal(/ nab i)
  (print "Выберите текстовые объекты среди которых будет произведененна калькуляция")
  (setq	nab (ssget '((0 . "TEXT")))
	i   0)
  (while (/= (sslength nab) 0)
    (setq i (+ i
	       (atof (vl-string-subst
		       "."
		       ","
		       (cdr (assoc 1 (entget (ssname nab 0))))))))
    (ssdel (ssname nab 0) nab))
  (print (strcat "Сумма = " (rtos i 2 2)))
  (princ))

[Лентяй]

В первом приближении наваял сей код. Приду домой - додумаю дальше.

Код:

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

(defun C:tmass ( / val)
  (setq cmd (getvar "CMDECHO"))
  (setvar "CMDECHO" 0)
  (prompt "\n Selecl numbers to add: ")
  (ssget)
  (setq adoc (vla-get-ActiveDocument (vlax-get-acad-object))
	ass (vla-get-ActiveSelectionSet adoc)
	tm 0)
  (vlax-for txt ass
    (if (and (= (vla-get-objectname txt) "AcDbText")
	      (not (null (setq val (vla-get-TextString txt)))));and
      (setq tm (+ tm (atof val)))));vlax-for
  (princ (strcat "\nTotal Mass: " (rtos tm) " kg. "))
  (setvar "CMDECHO" cmd)
);end

[Alan]

ИМХО
Всё-таки спецификации чертежа, в том числе и эту, надо делать программным путем. А не путем складывания указанных ТЕКСТов.

[EasyD]

To >Gostushev

Я тут Вам скинул на емелю кой чё... Посмотрите на досуге, если поможет буду оч рад

[Gostushev]

Всем спасибо за содействие, очень вам всем признателен. Если вам не сложно буду придумывать еще задачки :-)