Комментарии на: Как обновить вхождения блока

От: Кулик Алексей aka kpblc

Кулик Алексей aka kpblc — Thu, 21 Jan 2021 10:02:58 +0000

Вопрос в паре моментов: скорость выполнения и не слопаются ли все хендлы. Их-то количество достаточно велико, но не бесконечно.

От: Петр-Алекс

Петр-Алекс — Wed, 20 Jan 2021 20:35:40 +0000

Господа, а что если действовать по следующему сценарию:
1 - переопределить весь сомн блоков как хочется
2 - последовательно стирать каждое вхождение (insert) любого блока, считав\запомнив параметры этого вхождения. и тут же вставлять только что стертый блок с сохраненными ранее параметрами и в соответствии с текущими\исправленным определением
...
это сильно неправильная идея?

От: Кулик Алексей aka kpblc

Кулик Алексей aka kpblc — Sun, 03 Feb 2013 17:15:00 +0000

Пока задача повторно не вставала, поэтому и не занимался этой проблемой Сорри.
Сейчас нет никакой возможности выделить время на этот вопрос. Если будут новости - естественно, сообщу.

От: Дмитрий

Дмитрий — Mon, 28 Jan 2013 16:38:31 +0000

TararykovDG у меня не работает ваш код. Скажите зачем в предпоследней программе (defun _lispru-update-references2 (block-name / nbr_block_ref) используете ввод имени блока block-name?
Кулик Алексей aka kpblc если у Вас есть решение, поделитесь пожалуйста знаниями)

От: TararykovDG

TararykovDG — Thu, 26 May 2011 09:01:02 +0000

Кулик Алексей aka kpblc пишет:
Все дело в том, что подобное не срабатывает, если в блоке есть текстовые примитивы, которым меняется стиль. Или уровень вложенности больше 1.
Я долго ломал голову, как с минимальными потерями выйти из этой ситуации, но простого и изящного решения я не нашел. Пока приходится идти “в лоб”

Алексей и все-таки у меня получается и с текстовыми примитивами и с вложенностью больше 1.
(defun test1_(/ adoc blk_name blk_def1 blk_def2 blk_def3 blk_def4)
(vla-startundomark
(setq adoc (vla-get-activedocument (vlax-get-acad-object)))
) ;_ end of vla-StartUndoMark
(setq blk_name "blk1"
blk_def1 (vla-add (vla-get-blocks adoc)
(vlax-3d-point '(0. 0. 0.))
blk_name
) ;_ end of vla-add
) ;_ end of setq
(vla-addattribute
blk_def1
3.5
acattributemodenormal
"Prompt"
(vlax-3d-point '(0. 0. 0.))
"Tag"
"Value"
) ;_ end of vla-AddAttribute
(vla-AddText blk_def1 "Òåêñò"
(vlax-3d-point '(0. -5. 0.))
2
)

(setq blk_name "blk2"
blk_def2 (vla-add (vla-get-blocks adoc)
(vlax-3d-point '(0. 0. 0.))
blk_name
) ;_ end of vla-add
)
(vla-addcircle blk_def2 (vlax-3d-point '(0. 0. 0.)) 15.)
(vla-InsertBlock blk_def2 (vlax-3d-point '(0. 0. 0.)) "blk1" 1 1 1 0)

(setq blk_name "blk3"
blk_def3 (vla-add (vla-get-blocks adoc)
(vlax-3d-point '(0. 0. 0.))
blk_name
) ;_ end of vla-add
)
(vla-AddLine blk_def3 (vlax-3d-point '(-10. -10. 0.)) (vlax-3d-point '(10. 10. 0.)))
(vla-InsertBlock blk_def3 (vlax-3d-point '(0. 0. 0.)) "blk2" 1 1 1 0)

(setq blk_name "blk4"
blk_def4 (vla-add (vla-get-blocks adoc)
(vlax-3d-point '(0. 0. 0.))
blk_name
) ;_ end of vla-add
)
(vla-AddPolyline blk_def4 (vlax-safearray-fill (vlax-make-safearray vlax-vbDouble '(0 . 8)) (append '(-15. 15. 0.) '(10. 10. 0.) '(10. -10. 0.))))
(vla-InsertBlock blk_def4 (vlax-3d-point '(0. 0. 0.)) "blk3" 1 1 1 0)
; - blk1 находиться в blk4 на 3 уровне вложенности
(vla-endundomark adoc)
(princ)
); end test1_

(defun test3_(/ adoc blk_ref)
(vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
(vla-put-color
(vla-addcircle (vla-item (vla-get-blocks adoc) "blk1") (vlax-3d-point '(0. 0. 0.)) 5)
1
) ;_ end of vla-put-color
(vla-put-StyleName (vla-item (vla-item (vla-get-blocks adoc) "blk1") 1) "Standard")
; меняю стиль на Standard (по умолчанию был GOST)
(vla-endundomark adoc)
(princ)
); end test3_

(defun _lispru-update-references2 (block-name / nbr_block_ref)
(if (setq nbr_block_ref (ssget "_X" (list (cons 0 "INSERT"))))
(foreach item (vl-remove-if 'listp (mapcar 'cadr (ssnamex nbr_block_ref)))
(vla-Update (vlax-ename->vla-object item))
)
)
); end _lispru-update-references2

(defun c:update (/ adoc)
(vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
(_lispru-update-references2 "blk1")
(vla-endundomark adoc)
(princ)
) ;_ end of defun

Правда у меня ACAD2008 локализованный.

От: Кулик Алексей aka kpblc

Кулик Алексей aka kpblc — Wed, 25 May 2011 17:25:00 +0000

Надо использовать метод vla-insertblock, и в качестве первого параметра указывать описание "владельца".

От: TararykovDG

TararykovDG — Wed, 25 May 2011 10:00:26 +0000

Алексей, а можно еще вопрос? Можно ли программно (только средствами ActiveX) добавить в блок другой блок, т.е. на примере Вашего же кода:
(defun test1_(/ adoc blk_name blk_def1 blk_def2)
(vla-startundomark
(setq adoc (vla-get-activedocument (vlax-get-acad-object)))
) ;_ end of vla-StartUndoMark
(setq blk_name "blk1"
blk_def1 (vla-add (vla-get-blocks adoc)
(vlax-3d-point '(0. 0. 0.))
blk_name
) ;_ end of vla-add
) ;_ end of setq
; --- СОЗДАЛИ ПУСТОЙ БЛОК С ИМЕНЕМ blk1 ---
(vla-addattribute
blk_def1
3.5
acattributemodenormal
"Prompt"
(vlax-3d-point '(0. 0. 0.))
"Tag"
"Value"
) ;_ end of vla-AddAttribute
; --- ДОБАВИЛИ В БЛОК blk1 АТРИБУТ ---
(vla-AddText blk_def1 "Текст"
(vlax-3d-point '(0. -5. 0.))
2
)
; --- ДОБАВИЛИ В БЛОК blk1 ТЕКСТ ---

(setq blk_name "blk2"
blk_def2 (vla-add (vla-get-blocks adoc)
(vlax-3d-point '(0. 0. 0.))
blk_name
) ;_ end of vla-add
)
; --- СОЗДАЛИ ПУСТОЙ БЛОК С ИМЕНЕМ blk2 ---
(vla-addcircle blk_def2 (vlax-3d-point '(0. 0. 0.)) 20.)
; --- ДОБАВИЛИ В БЛОК blk2 ОКРУЖНОСТЬ ---
(...) - КАК ДОБАВИТЬ В БЛОК blk2 БЛОК blk1 ??? (ничего типа vla-addblock я не нашел)
(vla-endundomark adoc)
(princ)
)

От: Кулик Алексей aka kpblc

Кулик Алексей aka kpblc — Tue, 24 May 2011 19:15:22 +0000

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

От: TararykovDG

TararykovDG — Tue, 24 May 2011 10:51:49 +0000

Добавив предыдущий пост обнаружил, что не отобразился лисп код для функции _lispru-update-references2, поэтому добавлю здесь
(defun _lispru-update-references2 (block-name / nbr_block_ref)
(if (setq nbr_block_ref (ssget "_X" (list (cons 0 "INSERT"))))
(foreach item (vl-remove-if 'listp (mapcar 'cadr (ssnamex nbr_block_ref)))
(vla-Update (vlax-ename->vla-object item))
)
)
); end _lispru-update-references2

От: TararykovDG

TararykovDG — Tue, 24 May 2011 10:49:21 +0000

Здравствуйте Алексей! Может я чего не до конца понял в Ваше статье, но у меня вот что получилось.
Итак, на Ваших же примерах, замнил функцию _lispru-update-references1 на _lispru-update-references2:

1
2
3
4
5
6
7

и вхождения блока blk2 обновились как надо (т. е. в них обновились blk1)