[Seryj_Wolk]

Знаю что таких тем уже хватает, но изучив их, то что нужно найти не смог. Нашел по ссылке в этой теме лисп:

Код:

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

(defun c:bcount (/ curEnt dxfList blName Count)
  (if
  (setq curEnt(entsel "*** Select sample block "))
  (progn
   (setq dxfList(entget(car curEnt)))
  (terpri)
  (if(= "INSERT"(cdr(assoc 0 dxfList)))
    (progn
    (setq blName(cdr(assoc 2 dxfList))
          Count(sslength(ssget "_X"
    (list(assoc 2 dxfList))))
    ); end setq
    (princ(strcat "*** Block name: " blName
      "\n*** Blocks in drawing: "(itoa Count)))
    );end progn
    (princ "\n*** This don't block!\n ")
    ); end if
  ); end progn
  (princ "\n*** Nothing selected!\n ")
  ); end if
  (princ)
  ); end bstat

Может кто-нить подкорректировать его так, чтобы при тыканьи в блок не только подсчитывалось количество блоков данного типа, но и еще они бы выделялись. Буду очень признателен

[Seryj_Wolk]

Елпанов Евгений, работает шустро, но как и в предыдущей версии есть косяк.
Если выбран какой то элемент то команда не работает. И если не сбросить выделения после использования команды, то опять же лисп перестает работать. До тех пор пока не выберешь какой-либо элемент и не сбросишь с него выделение или не используешь какую-либо другую команду. Вот, как смог, объяснил..

[Елпанов Евгений]

Сообщение от Seryj_Wolk Елпанов Евгений, работает шустро, но как и в предыдущей версии есть косяк. Если выбран какой то элемент то команда не работает. И если не сбросить выделения после использования команды, то опять же лисп перестает работать. До тех пор пока не выберешь какой-либо элемент и не сбросишь с него выделение или не используешь какую-либо другую команду. Вот, как смог, объяснил..

пожалуйста, убрал выделение, а заодно лишнюю переменную...

Код:

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

(defun c:bcount (/ a)
 (sssetfirst nil)
 (print "*** Select sample block ")
 (if (setq a (ssget "_+.:S" '((0 . "INSERT"))))
  (princ (strcat (itoa (sslength (cadr (sssetfirst
                                        nil
                                        (ssget "_x"
                                               (list (cons 2
                                                           (setq a
                                                                 (cond
                                                                  ((vlax-property-available-p
                                                                    (setq a (vlax-ename->vla-object (ssname a 0)))
                                                                    'effectivename
                                                                   ) ;_  vlax-property-available-p
                                                                   (vla-get-effectivename a)
                                                                  )
                                                                  ((vlax-property-available-p a 'name) (vla-get-name a))
                                                                  (t nil)
                                                                 ) ;_  cond
                                                           ) ;_  setq
                                                     ) ;_  cons
                                               ) ;_  list
                                        ) ;_  ssget
                                       ) ;_  sssetfirst
                                 ) ;_  cadr
                       ) ;_  sslength
                 ) ;_  itoa
                 " : "
                 a
         ) ;_  strcat
  ) ;_  princ
 ) ;_  if
 (princ)
)

[Seryj_Wolk]

Елпанов Евгений
вот теперь все отлично.
Только результат немного криво выводиться
2 : Ящик с понижающим трансформатором
Переделай пожалуйста чтобы было так
Ящик с понижающим трансформатором: 2

[Елпанов Евгений]

Сообщение от Seryj_Wolk Елпанов Евгений вот теперь все отлично. Только результат немного криво выводиться 2 : Ящик с понижающим трансформатором Переделай пожалуйста чтобы было так Ящик с понижающим трансформатором: 2

не, переделывать не буду, даже добавлю, код не работает на динамических блоках

[Seryj_Wolk]

Сообщение от Елпанов Евгений не, переделывать не буду, даже добавлю, код не работает на динамических блоках

жаль, хороший лисп был...

[Елпанов Евгений]

Сообщение от Seryj_Wolk жаль, хороший лисп был...

тестируй...

Код:

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

(defun c:bcount (/ A S)
 (sssetfirst nil)
 (print "*** Select sample block ")
 (if (setq s (ssget "_+.:S" '((0 . "INSERT"))))
  (progn
   (cond
    ((vlax-property-available-p
      (setq a (vlax-ename->vla-object (ssname s 0)))
      'effectivename
     )
     (princ
      (strcat
       "\""
       (setq a (vla-get-effectivename a))
       "\" : "
       (itoa
        (sslength
         (cadr
          (sssetfirst
           nil
           (foreach x
                    (vl-remove-if-not
                     '(lambda (x)
                       (and
                        (vlax-property-available-p x 'effectivename)
                        (= (vla-get-effectivename x) a)
                       ) ;_  and
                      ) ;_  lambda
                     (mapcar
                      'vlax-ename->vla-object
                      (mapcar 'cadr
                              (ssnamex (ssget "_x" '((0 . "INSERT"))))
                      ) ;_  mapcar
                     ) ;_  mapcar
                    ) ;_  vl-remove-if-not
            (ssadd (vlax-vla-object->ename x) s)
           ) ;_  foreach
          ) ;_  sssetfirst
         ) ;_  cadr
        ) ;_  sslength
       ) ;_  itoa
      ) ;_  strcat
     ) ;_  princ
    )
    ((vlax-property-available-p a 'name)
     (princ
      (strcat
       (vla-get-name a)
       " : "
       (itoa
        (sslength (cadr (sssetfirst
                         nil
                         (ssget "_x" (list (cons 2 (vla-get-name a))))
                        ) ;_  sssetfirst
                  ) ;_  cadr
        ) ;_  sslength
       ) ;_  itoa
      ) ;_  strcat
     ) ;_  princ
    )
    (t nil)
   ) ;_  cond
  ) ;_  progn
 ) ;_  if
 (princ)
)

[Seryj_Wolk]

В принципе все работает, но скорость потерялась.
Насчет динамических блоков не знаю, я с ними мало работаю. Не мог бы сделать упрощенный вариант для обычных блоков. И при выводе блока можно убрать кавычки с названия блока, ну это уже мелочь

[Rainbow.dgw]

Очень полезная программа, жалко только, что динамические блоки разных размеров не разделяет.(((

[VVA]

Сообщение от Rainbow.dgw жалко только, что динамические блоки разных размеров не разделяет.(((

Это видел?
как выбрать динамические блоки по состоянию видимости?
Подсчет простых и динамических блоков
подсчет динамических блоков