[gizmo_zx]

Добрый день.
Есть програмка подсчета простых блоков.
- укажите блок
- выберите объекты
результат.
Но она не работает с динамическими блоками.
Подсобите кто може, а то я в лиспе никак...

Код:

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

(defun c:bcount-by-pick (/ ent selset name fun_get-name def)

  (defun fun_get-name (ent)
    (cond
      ((vlax-property-available-p ent 'effectivename)
       (vla-get-effectivename ent)
       )
      ((vlax-property-available-p ent 'name) (vla-get-name ent))
      (t nil)
      ) ;_ end of cond
    ) ;_ end of defun

  (vl-load-com)
  (if
    (and
      (= (type (setq
                 ent (vl-catch-all-apply
                       '(lambda () (car (entsel "\nУкажите блок <Отмена> : ")))
                       ) ;_ end of vl-catch-all-apply
                 ) ;_ end of setq
               ) ;_ end of type
         'ename
         ) ;_ end of =
      (= (cdr (assoc 0 (entget ent))) "INSERT")
      (setq ent (vlax-ename->vla-object ent))
      (setq
        def
         (vla-item
           (vla-get-blocks
             (vla-get-activedocument (vlax-get-acad-object))
             ) ;_ end of vla-get-blocks
           (fun_get-name ent)
           ) ;_ end of vla-item
        ) ;_ end of setq
      (setq name (fun_get-name ent))
      (equal (vla-get-isxref def) :vlax-false)
      ) ;_ end of and
     (progn
       (setq selset (ssadd))
       (vlax-for sub (vla-objectidtoobject
                       (vla-get-activedocument (vlax-get-acad-object))
                       (vla-get-ownerid ent)
                       ) ;_ end of vla-ObjectIDToObject
         (if (and (fun_get-name sub)
                  (= (strcase (fun_get-name sub)) (strcase name))
                  ) ;_ end of and
           (setq selset (ssadd (vlax-vla-object->ename sub) selset))
           ) ;_ end of if
         ) ;_ end of vlax-for
       (if selset
         (progn
           (princ (strcat "\nНормальное имя блока : "
                          (fun_get-name ent)
                          "\nКоличество блоков в текущем пространстве : "
                          (vl-princ-to-string (sslength selset))
                          ) ;_ end of strcat
                  ) ;_ end of princ
           (sssetfirst selset selset)
           ) ;_ end of progn
         ) ;_ end of if
       ) ;_ end of progn
     ) ;_ end of if
  (princ)
  ) ;_ end of defun

[Do$]

Проверил - работает с динамическими, но спотыкается на wipeout почему-то. Пример блока бы, с которым не работает.

[VVA]

найти все блоки, и сохранить их кол-во элементов
подсчет динамических блоков

[Do$]

Лучше действительно другую готовую программку взять.
В этой, как я понял, перебираются ВСЕ объекты текущей вкладки на соответствие свойства "EffectiveName" или "Name" с выбранным блоком. Поэтому возникают проблемы:

• У wipeout есть свойство "Name", но при попытке его прочитать, возникает ошибка.
• Если во вкладке много объектов, программа сильно тормозит.

[Nike]

ObjectARX. SelSim — выбор по образцу

[IMG]http://i017.***********/0912/92/9f36c0b38c7c.jpg[/IMG]

[Composter]

вот мой вариант

Код:

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

(defun c:zod10 (/ d_block_name ss1)
(vl-load-com)
(princ "выделение аналогичных динамических блоков")
(setq d_block_name (vla-get-EffectiveName(vlax-ename->vla-object(car (entsel "Укажите нужный блок: ")))))
(setq ss1 (ssget '((0 . "INSERT"))))

(mapcar
          '(lambda (name)(if (/= (vl-catch-all-apply 'vla-get-EffectiveName (list(vlax-ename->vla-object name))) d_block_name)
			     (ssdel name ss1)
			     
			 )
	   )
	(vl-remove-if 'listp (mapcar 'cadr (ssnamex ss1))) 
)
(sssetfirst nil ss1)
(princ)

);_end_of_defun

а обычные блоки я считаю стандартной коммандой _filter

[IgorSYS]

2 Nike а какой командой в автокаде запускается эта программа?

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

http://dwg.ru/art/8

[Nike]

Сообщение от IgorSYS 2 Nike а какой командой в автокаде запускается эта программа?

Выбор примитивов по образцу - _SelSim
Выбор примитивов по образцу из выбранного - SelSimSel
Настройка выбора по образцу - _SelSimOptions
Команда выбора по образцу появлется в контекстном меню.
[IMG]http://s002.***********/i197/1001/de/1c38ec03ec1e.jpg[/IMG]

http://www.caduser.ru/forum/index.ph...D=44&TID=38009

[IgorSYS]

Всем большое спасибо!!!

[ZZ_top]

Ребят, можно ли сделать так, чтобы в "Field" в Mtext отображалось количество блоков с именем "Унитаз-1"?
Спасибо

[DimAS]/[K]

можно сделать извлечение данных в табличку со всеми блоками (которые могут понадобиться в спецификациях и т. д.). А потом уже полем ссылаться на ячейку этой таблицы с извлеченными данными.

[ZZ_top]

Можете поподробней? это очень актуально. А лучше маааленький пример.. )