[БКС]

Здравтвуйте, подскажите пожалуйста, возможно ли подсчитать в черчеже количество элементов.
Проблемма стоит такая: я черчежник, есть чертеж от проектного института в электронной форме, нам нужно подсчитать количество одинаковых, по наименованию, фундаментов, возможно ли это сделать в АвтоКАДе.
Почитала на форуме, но поняла, что это все нужно делать с помощью программы лисп, а что это за программа я не знаю, возможно ли сделать подсчет с помощью голого АвтоКАДа? Поскольку устанавливать дополнительные программы я еще боюсь.
Была бы очень благодарна, если кто-либо подсказал, как это делается, или как это удобно посчитать с помощюь компьютера, Спасибо!

[Хмурый]

_bcount из Express Tools считает кол-во блоков

[Хмурый]

так-же можно сосчитать кол-во при помощи команды _qselect

[SetQ]

а я так делал: если на схеме каждый элемент схемы замаркирован тестом, то я написал програмку, которая считает количество текстовых примитивов, группирует по содержанию и считает количество. это было в развёртках стен подвала - там каждый бетонный блок тестом замаркирован.

а если фундики не блоками, а отдельными линиями нарисованы? БКС, кинь сюда свой файлик позырить!

Сообщение от Хмурый так-же можно сосчитать кол-во при помощи команды _qselect

Самый примитивный путь:
-- Правка
-- Найти
Вводите текст
Выделяете зону на чертеже
-- Выбрать все
В командной строке видите количество выбранных объектов (текстовых).

[OxYGeN]

Есть лиспик, кот. считает кол-во объектов в каждом слое, если делать чертеж прально, все точно.

могу выдать если интересно. но помойму он тут был. elem.lsp

[asys]

если объекты одинаковые, проще всего _qselect-ом их по общему признаку выбрать и в комстроке он пишет сколько было выбрано

[БКС]

Спасибо за подсказку, много хорошего узнала, вот только, что такое команда _qselect или _bcount из Express, и скину фрагмент проекта, а то весь слишком тяжелый.

[SetQ]

_qselect и _bcount - команды автокада, их можно с клавиатуры в командной строке ввести, или в меню поискать где они запускютя.

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

а чей это чертёж - с какой страны?

[БКС]

А с помощью правки Автокад почему-то не находит

[БКС]

Да в какой-то сургутский институт

Сообщение от БКС А с помощью правки Автокад почему-то не находит

А в регистре (рус/англ) нет ошибки?

Сообщение от БКС А с помощью правки Автокад почему-то не находит

У меня все нормально работает. Нашел "Fm" - 53шт, "Fm-8" - 2шт. Проверьте "Параметры" в окне "Поиск и замена". Кстати, выделять зону поиска не забываете?

[asys]

Сообщение от БКС Спасибо за подсказку, много хорошего узнала, вот только, что такое команда _qselect или _bcount из Express, и скину фрагмент проекта, а то весь слишком тяжелый.

qselect он же "быстрый выбор"

[SetQ]

вот прога)) её нужно загрузить, вот здесь http://dwg.ru/art/8 описано, и дать в автокаде команду COUNT

Код:

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

;;;
;;; Count.lsp
;;; 26 сентября 2008 г.
;;; автор http://dwg.ru/f/member.php?u=10868
;;; считает количество текстов каждого содержания
;;;
(DeFun C:Count (/ fl ss N i ent txt R K)
  ;; собираем все тексты
  (Prompt "Выберите тексты (пустой ввод - выбрать все): ")
  (SetQ	fl
	   '(
	     (-4 . "<OR")
	     (0 . "TEXT")
	     (0 . "MTEXT")
	     (-4 . "OR>")
	    )

	ss (ssget fl)
  )

  (If (Null ss)
    (SetQ ss (ssget "x" fl))
  )

  (If ss
    ;; если такие объекты есть..
    (ProgN
      ;; N - количество объектов
      ;; i - счётчик
      (SetQ N (ssLength ss)
	    i 0
      )
      ;; перебираем объекты, собираем данные в список вида
      ;; (("Б1" 10)..)
      ;; где 57713.2 - суммарная длина 10 объектов со слоя "ОСС_ШЛЕЙФ1"
      (While (< i N)
	(SetQ ent (ssName ss i) ;_ ent - i-ый объект
	      txt (Cdr (Assoc 1 (EntGet ent))) ; txt - содержимое
	      i	  (1+ i)		; увеличиваем счётчик
	      ;; если в результирующем списке уже есть элемент
	      ;; с суммами для этого текста
	      R	  (If (SetQ K (Assoc txt R))
		    ;; плюсуем
		    (Subst (List txt (1+ (Cadr K))) K R)
		    ;; вставляем
		    (Cons (List txt 1) R)
		  )
	)
      )
      ;; сортируме список результата по возрастания имён слоёв
      (SetQ R (vl-sort R '(Lambda (s1 s2) (< (car s1) (car s2)))))
      ;; будем выводить данные на экран
      ;; открываем Текстовое окно автокада
      (TextPage)
      ;; печатаем заголовок
      (Prompt "\n\Текст - количество:\n")
      ;; перебираем список с результатами
      (While R
	(ProgN
	  (SetQ	K (Car R)
		R (Cdr R)
	  )
	  ;; печатаем
	  (Prompt (StrCat "\n" (Car K) " - ")) ;_ текст
	  ;; и количество элементов, вошедших в эту сумму
	  (Prompt (StrCat (ItoA (Cadr K)) " шт."))
	)
      )
    )
    ;; иначе сообщаем о том, что
    (Prompt "\nНичего нет(")
  )
  (prin1) ;_ BB
)

[Кулик Алексей aka kpblc]

http://dwg.ru/f/showthread.php?t=7158

[ASLYS]

попробуй команду
_dataextraction

[Sumus]

Самый простой способ, Главное меню/edit/ find

там в поле "Findtextstring" (не знаю как будет в русском акаде), вписываете ту марку (например ФС-1), количество которой должно быть посчитано, а в поле "Replacewith" пишите какую-нибудь абракадабру, типа "дцшаоцущкаг4983"

после этого нажимаете кнопку "ReplaceAll".

Функция просто заменит все названия ФС-1 на абракадабру и скажет сколько было замен произведено. Вот вам и кол-во марок.

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

[Дрюха]

Offtop: А с момента прошлого поста прошло уже более года

[Sumus]

Форумы на то и существуют, что даже если обсуждение закрыто, то инфа может пригодиться кому-нибудь в будущем И потом сравнивая с тем что написано выше, у меня самое оптимальное решение. Удачи.