• Миха
  • Восстановленный участник
  • На форуме с 4 апреля 2008г.
  • Сообщений: 1
  • Спасибо: 0

Тема: Подсчет количества извещателей в слаботочке

Возможно этот вопрос уже задавался, но я не нашел на него ответ. Ситуация такая: на чертеже расставлены датчики различных типов(блоки с текстовыми атрибутами). Подскажите плиз как можно рассчитать количество этих датчиков по типам. Может кто поделиться специальной прогой для этого?

  • Victor
  • Восстановленный участник
  • На форуме с 26 марта 2007г.
  • Сообщений: 270
  • Спасибо: 0

Re: Подсчет количества извещателей в слаботочке

если блоки разные, то это

;;;;;imya bloka i kol-vo v excel
(defun c:b2e( / name_file myfile nameset setlength
                blcrun nam_1 sec_set l i namrun)
(setq name_file (getfiled "save moi gluposti" "c:\\" "xls" 1))
(setq myfile (open name_file "w"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq nameset (ssget "_:L" '(( 0 . "INSERT")))) ;imya nabora
(setq setlength (sslength nameset)); dlina nabora
(while (/= setlength 0)
(setq setlength (- setlength 1))
(setq blcrun (ssname nameset 0));imya 1 bloka
(setq nam_1 (cdr (assoc 2 (entget blcrun)))) ;imya
(setq sec_set (ssadd))
(setq l 1)
(setq i 0)
(repeat setlength
(setq i (1+ i))
(setq blcrun (ssname nameset i));imya tekushevo bloka
(setq namrun (cdr (assoc 2 (entget blcrun)))) ;imya
(if (= nam_1 namrun) (setq l (+ l 1)) (ssadd blcrun sec_set))
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(princ nam_1 myfile)
(princ "\t" myfile)
(princ l myfile)
(princ "\n" myfile)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq nameset sec_set)
(setq sec_set nil)
(setq setlength (sslength nameset)); dlina nabora
)
(close myfile)
(setq myfile nil)
)

  • Vitaly
  • Vitaly
  • Активный участник
  • Откуда: г. Саратов
  • На форуме с 13 февраля 2002г.
  • Сообщений: 4,354
  • Спасибо: 28

Re: Подсчет количества извещателей в слаботочке

Миха пишет:

Может кто поделиться специальной прогой для этого?

...да, Autodesk может поделиться с тобой хорошей программой для этих целей, Autocad MEP, например!!!
вот несколько примеров работы MEP >>>
http://www.vitalyf.by.ru/Sample/Creatin … EP2008.rar
http://www.vitalyf.by.ru/Sample/ABS2007Keynote.rar
пример проекта >>>>
http://www.vitalyf.by.ru/Sample/AcadMEP_project.rar

  • На форуме с 25 февраля 2010г.
  • Сообщений: 27
  • Спасибо: 0

Re: Подсчет количества извещателей в слаботочке

Если вопрос еще актуален)... можно подсчитать блоки в автокаде, с помощью expresstools команда _bcount (выводить кол-во всех блоков  выделенной области в командной сроке) +F2...