Имена динамических блоков

Имена динамических блоков · 21.03.2011, 10:23

Друзья, есть динамический блок. Имя его Truba. Когда вставляю кучу блоков, имена их становятся не труба, а *U232 и тому подобные. Каким образом вытащить программно его истинное имя?

Do$ · 21.03.2011, 10:40

Смотреть свойство "EffectiveName"

Zaghim · 21.03.2011, 11:11

Код:

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

(setq object (entget name))
  (setq klass (cdr (assoc 0 object)))

Далее под цифоркой 2 сидит имя, но имя как уже говорил в виде *U232, под какой цифрой истинное?)

Лиспер · 21.03.2011, 11:31

(setq name (vla-get-effectivename (vlax-ename->vla-object object)))

Zaghim · 21.03.2011, 12:43

А без VisualLisp нельзя обойтись?

Дима_ · 21.03.2011, 12:46

Если только совсем делать нечего

Do$ · 21.03.2011, 12:46

Цитата:

А без VisualLisp нельзя обойтись?

Насколько я знаю - нет. А чем не устраивает?

Zaghim · 21.03.2011, 12:52

Я использую код от программы Gakson. Стырил отсюда, так вот в ней это строка не проходит, выбрасывает по ошибке((

Дима_ · 21.03.2011, 13:01

А ты уверен что если туда просто вставить имя дин. блока - она будет работать?

Zaghim · 21.03.2011, 13:09

Код:

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

(defun C:gakson ( / *error*)
 (setq p_cmdecho (getvar "CMDECHO")
       p_snapmode (getvar "SNAPMODE")
       p_orthomode (getvar "ORTHOMODE")
       p_blipmode (getvar "BLIPMODE")
       p_osmode (getvar "OSMODE")
       visotm nil
       visotmold nil
 )
  ;(vl-load-com)

      (defun *error* (msg)  ; Переопределение функции ERROR
        (princ "Программа прервана пользователем")
        (setvar "SNAPMODE" p_snapmode)
        (setvar "ORTHOMODE" p_orthomode)
        (setvar "BLIPMODE" p_blipmode)
        (setvar "OSMODE" p_osmode)
        (setvar "CMDECHO" p_cmdecho)    
        (setq p_cmdecho nil p_snapmode nil p_orthomode nil p_osmode nil p_blipmode nil)
        (princ)
      ) ; defun(*error*)
  
 (setvar "CMDECHO" 0)
 (setvar "SNAPMODE" 0)
 (setvar "ORTHOMODE" 0)
 (setvar "BLIPMODE" 0)
 (setvar "OSMODE" 1)
 (gc)
  
(setq stangle nil stangle1 nil endangle nil endangle1 nil bit10 nil bit10new nil
      bit11 nil bit11new nil bit50 nil bit50new nil bit51 nil bit51new nil object_new nil)
(setq n 0 nabr nil number 0 name nil processed_obj 0)

;(princ "\n ПРОГРАММА ПЕРЕВОДА ПЛАНА В АКСОНОМЕТРИЧЕСКУЮ ПРОЕКЦИЮ.")
;(princ "\n Выберите объекты: ")
(setq nabr (ssget "_A"))
(setq number (sslength nabr))
(initget 6)
  (setq ugol 45.0)
  ;(if (null ugol) (setq ugol 45.0))
(setq ugolrad (* pi (/ ugol 180.0)))
;(setq point (getpoint "\n Укажите точку поворота : ")
(setq point (list 0.0 0.0 0.0)
      x0 (car point)
      y0 (cadr point)
)
(princ "\n")
(setvar "OSMODE" 0)
(while (> number n)
  (setq visotmold visotm)
  (setq name (ssname nabr n))
  (setq object (entget name))
  (setq klass (cdr (assoc 0 object)))
  ;(setq nambl (vla-get-effectivename (vlax-ename->vla-object object)))
  (if (= (cdr (assoc 70 (tblsearch "LAYER" (cdr (assoc 8 object))))) 4)  
    (vl-cmdf "_.-layer" "_U" (cdr (assoc 8 object)) "")
  )  
; разделение по типам объектов
  (cond
     ;;;----- Обработка примитивов типа "INSERT"
     ((eq klass "INSERT")

        ;(setq eb1 (entlast))
        ;(setq ebd (entget eb1))
        ;(setq name (entnext name))
        ;    (while (AND name
    ;      (= (cdr (assoc 0 (setq object (entget name)))) "ATTRIB")
    ;          ) 
    ;      (setq imattr (cdr (assoc 2 object))
        ;            znattr (cdr (assoc 1 object))
        ;      )
    ;      (if (= imattr "VO") 
        ;        (setq visotm znattr)
    ;      )
    ;      (setq name (entnext name))
    ;    )
        ;(if (= visotm visotmold)
    ;  (alert "Равны!")
    ;  (alert "Не равны!")
    ;)  

      (command "explode" name)
          ;(exit)

     ) ; equal klass "INSERT"



  ) ; cond
  (setq n (+ n 1))

  ) ;while(main)
(if (/= n processed_obj)
    (princ (strcat "\n Не удалось обработать объектов: " (rtos (- n processed_obj) 2 0) ".\n"))
  )
  (setvar "SNAPMODE" p_snapmode)
  (setvar "ORTHOMODE" p_orthomode)
  (setvar "BLIPMODE" p_blipmode)
  (setvar "OSMODE" p_osmode)
  (setvar "CMDECHO" p_cmdecho)
  ; (setvar "ERRNO" 0)
  
) ; defun

Все прекрасно работает, можете попробовать...блоки перебираю и взрываю, если надо дергаю атрибуты с блоков.

TararykovDG · 21.03.2011, 15:26

Цитата:

Сообщение от Do$

Цитата:

А без VisualLisp нельзя обойтись?

Насколько я знаю - нет. А чем не устраивает?

Просто ради интереса. У меня вот получилось без EffectiveName, через dxf коды

Код:

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

 
(cdr (assoc 2 (entget (cdr (assoc 340 (entget (cdr (assoc 360 (entget (cdr (assoc 360 (entget (cdr (assoc 360 (entget (car (entsel)))))))))))))))))

Так работает, только если у дин. блока "подергали" какой-либо параметр и (cdr (assoc 2 (entget (car (entsel))))) возвращает *U..., если же блок не трогали, то (cdr (assoc 2 (entget (car (entsel))))) вернет истинное имя, а "шляпа" что показана выше работать не будет

Zaghim · 21.03.2011, 16:12

TararykovDG, вот это мощно)))) щас попробую

TararykovDG · 21.03.2011, 16:43

Zaghim, походу в Твоем коде надо убрать ; в строке

Код:

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

 
 ;(vl-load-com)

Тогда и vla-get-effectivename будет работать

Zaghim · 21.03.2011, 16:59

Не, он и с ним и без него пофиг, ругается и выходит... Твоя строка работает, все круто. СПАСИБО БОЛЬШОЕ!!!!!

Disney · 21.03.2011, 17:38

Аргументом функции vlax-ename->vla-object должен быть приметив, а ты ей список подсовываешь, он риугаеться примерно так:
не верный тип аргумента: lentitype ((-1 . <Имя ...

Zaghim · 21.03.2011, 17:44

Блин я оленина(((( пардон...

VVA · 21.03.2011, 18:35

Цитата:

Сообщение от TararykovDG

так работает, только если у дин. блока "подергали" какой-либо параметр и (cdr (assoc 2 (entget (car (entsel))))) возвращает *U

Так работает со всеми блоками

Код:

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

(defun get-block-name ( blockentity / name repbtag )
;;; (C) Lee Mac LM:EffectiveName
;;; http://www.theswamp.org/index.php?topic=37493.0
;;; http://forum.dwg.ru/showthread.php?t=65082
;;; blockname EffectiveName динамические блоки
  (if (wcmatch (setq name (cdr (assoc 2 (entget blockentity)))) "`**")
    (if
      (and
        (setq repbtag
          (cdadr
            (assoc -3
              (entget
                (cdr
                  (assoc 330
                    (entget (tblobjname "BLOCK" name))
                  )
                )
               '("AcDbBlockRepBTag")
              )
            )
          )
        )
        (setq repbtag (handent (cdr (assoc 1005 repbtag))))
      )
      (setq name (cdr (assoc 2 (entget repbtag))))
    )
  )
  name
)

Do$ · 24.03.2011, 08:50

Как показала практика, наличие 360 группы в entget-листе вставки блока не является достаточным условием для того, что в тех недрах, куда мы этим лиспом залазим, окажется имя блока... Так что, Владимир, Ваша функция из #17 для динамического блока, который еще не подвергался изменениям, имя не находит и выдет ошибку

VVA · 24.03.2011, 09:23

Вполне может быть. Я у себя делаю как в #2

Do$ · 24.03.2011, 09:52

В общем, по моим наблюдениям, самым "быстрым" оказался такой код:

Код:

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

 (defun blk-get-name-mix (ent / name)
  (if (wcmatch (setq name (cdr (assoc 2 (entget ent)))) "`*U#*")
    (vla-get-EffectiveName (vlax-ename->vla-object ent))
    name
  ) ;_ end of if
) ;_ end of defun

Лиспер · 24.03.2011, 10:20

Сейчас проверить быстродействие не могу, но тем не менее (как вариант)

Код:

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

 (defun _dwgru-get-block-name (ent)
  (if (vlax-property-available-p
        (setq ent (vlax-ename->vla-object ent))
        'effectivename
        ) ;_ end of vlax-property-available-p
    (vla-get-effectivename ent)
    (vla-get-name ent)
    ) ;_ end of if
  ) ;_ end of defun

VVA · 24.03.2011, 11:12

Do$, Блоки с именем *U# не обязательно динамические. Это могут быть и обычные, т.е vla-get-EffectiveName вернет ошибку

Do$ · 24.03.2011, 12:06

Свойство EffectiveName есть у любого блока, а не только динамического,
поэтому достаточно такого будет:

Код:

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

 (defun blk-get-name-vla (ent)
  ;;(blk-get-name-vla (car (entsel)))
  (vla-get-EffectiveName (vlax-ename->vla-object ent))
) ;_ end of defun

И кратко и работет быстро

Лиспер · 24.03.2011, 13:37

Цитата:

Сообщение от Do$

Свойство EffectiveName есть у любого блока, а не только динамического,

Осталось запустить код на AutoCAD 2005

И получить сурьезный облом

VVA · 07.04.2011, 13:52

Цитата:

Сообщение от Do$

Как показала практика, наличие 360 группы в entget-листе вставки блока не является достаточным условием для того, что в тех недрах, куда мы этим лиспом залазим, окажется имя блока... Так что, Владимир, Ваша функция из #17 для динамического блока, который еще не подвергался изменениям, имя не находит и выдет ошибку

Обновлен код в #17

Цитата:

Сообщение от Do$

В общем, по моим наблюдениям, самым "быстрым" оказался такой код:

Новые наблюдения

Код:

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

 
(BenchMark
             '(
                  (get-block-name (entlast)) ;_ post #17
                  (blk-get-name-mix (entlast)) ;_post #20
                  (blk-get-name-vla (entlast)) ;_post #23
              )
 )

Цитата:

Benchmarking ..................Elapsed milliseconds / relative speed for 32768 iteration(s):

(GET-BLOCK-NAME (ENTLAST)).......1297 / 1.90 <fastest>
(BLK-GET-NAME-MIX (ENTLAST)).....1297 / 1.90
(BLK-GET-NAME-VLA (ENTLAST)).....2469 / 1.00 <slowest>

Do$ · 07.04.2011, 21:16

Только диву даюсь: каким образом можно было докопаться до такого решения?

Я, кстати, когда тестировал, проверял на трех разных блоках:
- обычный "статический"
- динамический, только что вставленный
- динамический, у которого значения параметров менялись после вставки
Результаты были сильно разные...

Walkmax · 11.04.2011, 15:02

А есть ли возможность в код представленный тут http://www.jefferypsanders.com/autolisp_AttInc.html добавить возможность работы с дин.блоками?

Лиспер · 11.04.2011, 15:08

А чем штатные варианты не устраивают?

Walkmax · 11.04.2011, 15:14

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

Do$ · 11.04.2011, 16:06

Цитата:

А есть ли возможность в код представленный тут http://www.jefferypsanders.com/autolisp_AttInc.html добавить возможность работы с дин.блоками?

Мне кажется, что с такими вопросами лучше в отдельную тему. Но раз уж тут начали обсуждать...

Цитата:

Сообщение от Лиспер

А чем штатные варианты не устраивают?

А что, есть такое?

Лиспер · 11.04.2011, 16:46

Насколько я понял (код не анализировал), это фактически замена стандартной команды _attedit. Или нет? Если нет, дома погляжу еще разок...

Do$ · 11.04.2011, 17:04

Вроде бы, это автоматический нумератор атрибутов (наподобие экспрессовского TCOUNT, только для атрибутов блока).

Walkmax · 11.04.2011, 17:16

Функционал следующий:
В чертёж ставм блок с атрибутами
Вызов команды
На запрос указать блок для дальнейших операций указываем нужный блок
В появившемся окне доступны операции выбора атрибутов, определения начального значения нумерации, направление нумерации
Далее если блок не *U, каждый следующий клик мышкой в чертеже ставит ранее указанный блок, с нумерацией в теге указанного атрибута, с ранее указанного стартового значения, в ранее указанном направлении.

Но вот весь вопрос в том, что данный код не работает с *U-именоваными блоками

TararykovDG · 14.04.2011, 10:57

Цитата:

Сообщение от Walkmax

А есть ли возможность в код представленный тут http://www.jefferypsanders.com/autolisp_AttInc.html добавить возможность работы с дин.блоками?

Попробуй так

Walkmax · 14.04.2011, 12:10

Цитата:

Сообщение от TararykovDG

Попробуй так

Получается так
Команда: ATTINC

Select Block:
Gathering all blocks named *U16 .....

TararykovDG · 14.04.2011, 12:44

Цитата:

Сообщение от Walkmax

Получается так
Команда: ATTINC

Select Block:
Gathering all blocks named *U16 .....

Walkmax, выложи чертеж на котором так получается (в версии не выше 2008 ACAD'а). Да, и кстати какой у Тебя ACAD.

Walkmax · 14.04.2011, 13:56

Вот чертёж и блок в нём
Чертеж1.dwg

TararykovDG · 14.04.2011, 14:11

Walkmax, судя по всему Ты не обновил свои файлы на те, которые я выложил в посте #34. На всякий случай выкладываю только lisp-файл. На Твоем чертеже у меня все отработало

Walkmax · 14.04.2011, 14:15

Всё работает, после пинка
Спасибо

Sanchev · 31.05.2011, 19:14

Цитата:

Сообщение от Do$

Свойство EffectiveName есть у любого блока, а не только динамического,
поэтому достаточно такого будет:

Код:

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

 (defun blk-get-name-vla (ent)
  ;;(blk-get-name-vla (car (entsel)))
  (vla-get-EffectiveName (vlax-ename->vla-object ent))
) ;_ end of defun

И кратко и работет быстро

подскажите тупому начинающему, что является параметром функции blk-get-name-vla?

gomer · 31.05.2011, 19:29

Цитата:

Сообщение от Sanchev

подскажите тупому начинающему, что является параметром функции blk-get-name-vla?

примитив 'ENAME Во втором приближении можно сделать так

Код:

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

 (defun *-get-EffectiveName (ent)
  (if (= 'ENAME
	 (type ent)
	 (*-get-EffectiveName (vlax-ename->vla-object ent))
	 (vla-get-EffectiveName ent)
      )
  )
)

Кулик Алексей aka kpblc · 31.05.2011, 20:36

vla-указатель на вхождение блока.
P.S. gomer, по-моему, ты со скобками напутал... ИМХО должно быть нечто типа

Код:

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

 (vl-load-com)

(defun *-get-name (ent)
  (cond
    ((= (type ent) 'ename)
     (*-get-name (vlax-ename->vla-object ent))
    )
    ((and (= (type ent) 'vla-object)
	  (vlax-property-available-p ent 'effectivename)
     )
     (vla-get-effectivename ent)
    )
    ((and (= (type ent) 'vla-object)
	  (vlax-property-available-p ent 'name)
     )
     (vla-get-name ent)
    )
  )
)

Sanchev · 02.06.2011, 12:57

Цитата:

Сообщение от gomer

примитив 'ENAME Во втором приближении можно сделать так

спасибо, но, другими словами, вопрос заключался в том, как запустить эту программу?

Цитата:

Сообщение от Do$

Код:

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

 (defun blk-get-name-vla (ent)
  ;;(blk-get-name-vla (car (entsel)))
  (vla-get-EffectiveName (vlax-ename->vla-object ent))
) ;_ end of defun

Do$ · 02.06.2011, 13:20

Это не программа, это функция, она может использоваться в программе посредством ее вызова. А пример вызова - в закомментированной строке.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Сквозная нумерация динамических блоков	zenon	Программирование	214	28.08.2020 08:45
подсчет динамических блоков	AAI	Программирование	37	25.06.2012 15:05
Тормозит команда расчленения набора блоков	batmax	Программирование	4	31.08.2010 17:37
Подсчет и сортировка блоков на текущем слое. Помогите отредактировать.	Kortes	Программирование	17	26.03.2010 18:46
Проблема вставки Динамических блоков	Владимир М	Программирование	11	12.09.2007 15:42

21.03.2011, 10:23		#1
Имена динамических блоков Zaghim Регистрация: 01.07.2010 Сообщений: 521 Друзья, есть динамический блок. Имя его Truba. Когда вставляю кучу блоков, имена их становятся не труба, а *U232 и тому подобные. Каким образом вытащить программно его истинное имя?
Просмотров: 10718