Lisp. Выбор динамических блоков с атрибутам скопом.

Kirill_Ja · 26.05.2013, 17:30

Итак снова про динамические блоки.
Есть задача выделить все блоки с определенным именем на чертеже.
Первая мысль была

(ssget "_X" (list (cons 0 "INSERT") (cons 2 <имя>)))

пока не вспомнил, что блоки динамические.

Есть какое-нибудь решение более элегантное, чем выбрать все блоки с именами, начинающимися со звездочки
и потом у каждого проверить EffectiveName?

Олег (jr.) · 26.05.2013, 18:21

Так пойдёт?

Код:

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

(setq blockname "wall")
(while (setq blkdef (tblnext "BLOCK" (null blkdef)))
  (if (or (wcmatch (cdr (assoc 2 blkdef))blockname )
	  (wcmatch (cdr (assoc 2 blkdef)) "`*U*")
	  )
(setq blklist (cons (cdr (assoc 2 blkdef))blklist))))
(setq filter (apply 'strcat(append
			     (mapcar '(lambda(x)
					(strcat "`"x ","))
				     (reverse (cdr (reverse  blklist))))
			     (list (last blklist))
			     )
		    )
      )
(setq sset (ssget "_X" (list (cons 0 "insert")(cons 2 filter)(cons 66 1)(cons 410 (getvar "ctab")))))
(repeat (setq n (sslength sset))
  (setq blk (ssname sset (setq n (1- n))))
  (princ (strcat "\n" (vla-get-effectivename (vlax-ename->vla-object blk))))
  )

Дима_ · 26.05.2013, 20:39

Цитата:

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

Есть какое-нибудь решение более элегантное, чем выбрать все блоки с именами, начинающимися со звездочки...

В авто\визал-лиспе нет, через Arx/.Net можно сразу получить список всех вхождений по блоку.

Kirill_Ja · 27.05.2013, 00:35

Ага. Ну как-то так я и предполагал. Олег, спасибо, что напомнил, что пользовательские блоки начинаются с "*U". Не смог погонять твой. Какой-то сбой в редакторе VLIDE. Подправил свой.

Еще давно хотел спросить. Если писать через Arx/.Net, программа станет чувствительна к версии AutoCad, системы и .Net Framework (если вопрос очень дурацкий - не отвечайте)

Олег (jr.) · 27.05.2013, 00:48

Цитата:

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

Еще давно хотел спросить. Если писать через Arx/.Net, программа станет чувствительна к версии AutoCad, системы и .Net Framework (если вопрос очень дурацкий - не отвечайте)

Да, однозначно и по всем позициям, посмотри последние сообщения на болоте
там как раз эта тема обсуждается (ТТ и компания)
http://www.theswamp.org/index.php?topic=41047.0

VVA · 28.05.2013, 19:26

Цитата:

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

Итак снова про динамические блоки.
Есть задача выделить все блоки с определенным именем на чертеже.
Первая мысль была

(ssget "_X" (list (cons 0 "INSERT") (cons 2 <имя>)))

пока не вспомнил, что блоки динамические.

Есть какое-нибудь решение более элегантное, чем выбрать все блоки с именами, начинающимися со звездочки
и потом у каждого проверить EffectiveName

Есть.

Код:

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

;;;Вместо "TITLEBLOCK" ввести имя блока
(ssget "_X"
  (list
    (cons 0 "INSERT")
    (cons 2 (LM:BlockList->Str (cons "TITLEBLOCK" (AnonymousInstancesof "TITLEBLOCK")) ","))
    (cons 66 1)
  )
)

Недостающие функции с правками по замечаниям #11

Код:

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

(defun AnonymousInstancesof ( block / def rec nme ref lst )
;; Returns list of the Anonymous names taken by a Dynamic Block (if any)  -  Lee Mac 2011  -  www.lee-mac.com
;; edit VVA 2013.10.16
;; Arguments:  block  - name of Dynamic Block.
;; http://www.cadtutor.net/forum/showthread.php?56447-Automatically-filling-out-the-Drawing-Property-from-Titleblock-Information&p=382978&viewfull=1#post382978
;; http://forum.dwg.ru/showthread.php?t=99353  
  (while (setq def (tblnext "BLOCK" (null def)))
    (if (= 1 (logand 1 (cdr (assoc 70 def))))
      (progn
        (setq rec
          (entget
            (cdr
              (assoc 330
                (entget
                  (tblobjname "BLOCK" (setq nme (cdr (assoc 2 def))))
                )
              )
            )
          )
        )
        (while (setq ref (assoc 331 rec))
          (if
            (and
              (cdr ref) ;;;Add VVA 2013-10-16
              (entget (cdr ref)) ;;;Add VVA 2013-10-16
              (eq block (vla-get-effectivename (vlax-ename->vla-object (cdr ref))))
              (not (member nme lst))
            )
            (setq lst (cons nme lst))
          )
          (setq rec (cdr (member (assoc 331 rec) rec)))
        )
      )
    )
  )
  (reverse lst)
)

(defun LM:BlockList->Str ( lst del / f )
  ;; © Lee Mac 2011

  (defun f ( s ) (if (wcmatch s "`**") (strcat "`" s) s))
  
  (if (cdr lst)
    (strcat (f (car lst)) del (LM:BlockList->Str (cdr lst) del))
    (f (car lst))
  )
)

Источник Automatically filling out the Drawing Property from Titleblock Information

Kirill_Ja · 04.06.2013, 00:17

В общем не стал сильно усложнять.
Получилось так:

Код:

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

 
       (vl-remove-if-not (function (lambda (x)
			(and (= 'ENAME (type x)) (member (vla-get-EffectiveName (vlax-ename->vla-object x)) ss_filter))
      
			      ))
  (mapcar 'cadr (ssnamex (ssget "_X" (list (cons 0 "insert"))))))

AndruxaZ · 14.10.2013, 01:04

Цитата:

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

Есть.

Код:

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

(ssget "_X"
  (list
    (cons 0 "INSERT")
    (cons 2 (LM:BlockList->Str (cons "TITLEBLOCK" (AnonymousInstancesof "TITLEBLOCK")) ","))
    (cons 66 1)
  )
)

Недостающие функции в этой теме: Automatically filling out the Drawing Property from Titleblock Information

Владимир, а подскажите куда нужно вводить имя блоков, которые должны попасть в выбор?

nolte · 14.10.2013, 08:30

http://www.cad.dp.ua/sovets/lisp-functions/blockset.php
Наверняка чего то найдешь тут

VVA · 14.10.2013, 16:12

Цитата:

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

Владимир, а подскажите куда нужно вводить имя блоков, которые должны попасть в выбор?

Обновил #6

AndruxaZ · 15.10.2013, 09:48

Цитата:

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

Обновил #6

Владимир, относительно кода из #6. Заметил следующее. После открытия файла с уже вставленными динамическими блоками код работает, но стоит только удалить хоть один блок выдаёт ошибку - неверный тип аргумента: VLA-OBJECT nil. Что-то можете прокомментировать или же к автору (Lee Mac) кода нужно обращаться. Если что, то vla-load-com выполнен.

Дима_ · 15.10.2013, 11:59

Цитата:

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

Если что, то vla-load-com выполнен.

если именно он выполнен, то неудивительно

AndruxaZ · 15.10.2013, 12:39

Так, и как это можно исправить?? Я только что проверил, запустил функцию (AnonymousInstancesof "TITLEBLOCK") из VLISPa. Сначала сработала, удалил один объект - таже ошибка. "vla-load-com" не вводил...

Эдуард · 15.10.2013, 18:21

Всем привет!

Цитата:

В авто\визал-лиспе нет, через Arx/.Net можно сразу получить список всех вхождений по блоку.

Позвольте с Димой не согласиться.
Набрасал на коленке ,поэтому извините за корявый код.
Результат - список в котором членами являются списки типа '(имя блока entity name всех insert-ов)

Код:

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

 
(defun es_insert_list (/ list_insert)
    (vlax-map-collection
    (vla-get-blocks
      (vla-get-ActiveDocument (vlax-get-acad-object))
    )

    '(lambda (x)
       (setq list_insert
	      (cons
		(mapcar	'cdr
			(vl-remove-if-not
			  '(lambda (y)
			     (or
			       (= (car y) 2)
			       (= (car y) 331)
			     )
			   )
			  (entget (vlax-vla-object->ename x))
			)

		)

		list_insert
	      )
       )
     )
  )
  (vl-remove-if '(lambda (z) (= (length z) 1)) list_insert)
)

VVA · 16.10.2013, 09:30

Цитата:

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

но стоит только удалить хоть один блок выдаёт ошибку - неверный тип аргумента: VLA-OBJECT nil.

Внес изменения в #6

AndruxaZ · 16.10.2013, 10:15

Цитата:

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

Внес изменения в #6

Теперь всё работает. Большущее спасибо Владимир !

Эдуард · 16.10.2013, 12:34

Привет.
А мы не ищем легких путей. Предлагаю еще одно нестандартное решение данной задачи.
Определяем зависимость анонимных блоков от динамического в таблице блоков и составляем список их имен используя только объектный метод.

Код:

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

 
(defun es_depend_blocks	(dyn_block_name	     /
			 blocks_base	     dyn_block_name_handl
			 handle_block	     name_item_list
			)
  (setq	blocks_base
	 (vla-get-blocks
	   (vla-get-ActiveDocument (vlax-get-acad-object))
	 )
  )
  (if
    (and
      (tblsearch "block" dyn_block_name)
      (setq dyn_block_name_handl
	     (vla-item blocks_base
		       dyn_block_name
	     )


	    dyn_block_name_handl
	     (vla-get-Handle dyn_block_name_handl)

      )
    )

     (vlax-for item blocks_base
       (vla-getxdata item "AcDbBlockRepBTag" 'tdata 'vdata)
       (if
	 (and
	   tdata
	   (setq handle_block
		  (vlax-variant-value
		    (last
		      (vlax-safearray->list vdata)
		    )
		  )
	   )
	   (= dyn_block_name_handl handle_block)
	 )
	  (setq name_item_list (cons (vla-get-name item) name_item_list))
       )
     )
  )
  name_item_list
)

Дима_ · 16.10.2013, 13:41

Цитата:

Сообщение от Эдуард

Позвольте с Димой не согласиться.

DXF DXF - да там периодически можно найти удивительные вещи... жаль документация хромает (я до сего момента думал, что эта "индексация", доступная из ARX/Net, только в памяти кэшируется), а нет... Интересно для чего она в "базе"?

AndruxaZ · 18.10.2013, 11:58

Вот ещё один вариант, предложенный тем же Lee Mac - http://lee-mac.com/getanonymousreferences.html

Эдуард · 18.10.2013, 13:17

Цитата:

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

Вот ещё один вариант, предложенный тем же Lee Mac - http://lee-mac.com/getanonymousreferences.html

Этот метод аналогичен моему посту 16.10.2013, 08:34.
Идет анализ РД анонимного блока записанных в приложение "AcDbBlockRepBTag" (1005 . "хендл динамического блока от которого зависит анонимный) , только используется чисто entity подход.
У кого есть еще варианты ?

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Выбор динамических блоков по значению линейного параметра	aso3	Программирование	31	28.06.2024 11:19
LISP. Очистка рисунка от "пустых" блоков	Makswell	Готовые программы	15	26.10.2022 15:24
Какой язык перспективен для инженера-конструктора с условием	The_Mercy_Seat	Программирование	705	17.03.2021 14:19
Библиотека динамических блоков + XML + Lisp = I-Draw ( первая web палета инструментов )	gabrin	Динамические блоки	55	24.05.2013 11:32
Тормозит команда расчленения набора блоков	batmax	Программирование	4	31.08.2010 17:37

26.05.2013, 17:30		#1
Lisp. Выбор динамических блоков с атрибутам скопом. Kirill_Ja Мурманск Регистрация: 28.07.2008 Сообщений: 208 Итак снова про динамические блоки. Есть задача выделить все блоки с определенным именем на чертеже. Первая мысль была (ssget "_X" (list (cons 0 "INSERT") (cons 2 <имя>))) пока не вспомнил, что блоки динамические. Есть какое-нибудь решение более элегантное, чем выбрать все блоки с именами, начинающимися со звездочки и потом у каждого проверить EffectiveName?
Просмотров: 12649