Комментарии на: Тихое выполнение функций и команд

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

Кулик Алексей aka kpblc — Mon, 16 Jul 2012 10:24:56 +0000

То, что у меня не наблюдается, не означает, что подобное нельзя словить Это ж известный закон - у разработчика всегда и все работает
Так что я бы не убирал, наверное, подобные проверки. Как говорится, "от греха"

От: TararykovDG

TararykovDG — Mon, 16 Jul 2012 10:20:06 +0000

Алексей, спасибо, раз у Тебя подобного не наблюдается, посмотрю у себя еще раз повнимательней, в чем может быть причина.

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

Кулик Алексей aka kpblc — Mon, 16 Jul 2012 10:09:59 +0000

Доброго. Я гонял на 2006, 2008, 2009, 2010 и 2012. Подобного вроде бы не замечалось.Странно...
Для гарантии я бы добавил еще одну проверку - на объекты таблиц (они в блоках *T):
[cc lang="cadlisp"](vl-load-com)

(defun purge-blocks (adoc /)
(vlax-for blk (vla-get-blocks (cond (adoc)
(t (vla-get-activedocument (vlax-get-acad-object)))
) ;_ end of cond
) ;_ end of vla-get-blocks
(if (and (equal (vla-get-islayout blk) :vlax-false)
(equal (vla-get-isxref blk) :vlax-false)
(not (wcmatch (vla-get-name blk) "*D*,*T*"))
) ;_ end of and
(vl-catch-all-apply
(function
(lambda ()
(vla-delete blk)
) ; _end of lambda
) ; _end of function
) ;_ end of vl-catch-all-apply
) ;_ end of if
) ;_ end of vlax-for
) ;_ end of defun[/cc]

P.S. Обновил код - добавил проверку на внешние ссылки

От: TararykovDG

TararykovDG — Mon, 16 Jul 2012 09:45:16 +0000

Привет, Алексей. Все это время (с мая) пользовался Твоим кодом с небольшой доработкой (добавил проверку, что текущий блок не *ModelSpace и не *PaperSpace…) для тихого удаления неиспользуемых блоков и слоев. И вот на днях получил, супер облом. Итак, ситуация следующая, если на чертеже присутствуют размеры (а они очень часто присутствуют), то в коллекции блоков появляются блоки с именами *D. Так вот если их попытаться молча удалить, то размеры потом ведут себя очень странно. А именно, при перемещении – отскакивают, при этом если нажать Ctrl+A для выделения всех элементов, то ручки у отскочивших размеров, находятся в нужном месте, а графически они куда-то смещаются. А если попытаться скопировать их через буфер обмена, то они не вставляются, а вставляется предыдущее содержимое буфера обмена. Протестировал на ACAD 2008 и ACAD 2012. Если не трудно протестируй у себя так ли это или это только мой “баг”, во всяком случае сейчас делаю так.
[cc lang="lisp"]
(defun purge-blocks(adoc / )
(vlax-for blk (vla-get-Blocks adoc)
(if (and (equal (vla-get-IsLayout blk) :vlax-false)
(not (wcmatch (vla-get-name blk) "`*D*"))
)
(vl-catch-all-apply
(function
(lambda()
(vla-delete blk)
); _end of lambda
) ; _end of function
) ; _end of if
) ; _end of if
) ; _end of while
); _end of defun
[/cc]

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

Кулик Алексей aka kpblc — Thu, 03 May 2012 19:59:18 +0000

Насчет vlax-get и vlax-put. В данном случае их можно безболезненно заменить на vlax-get-property -эффект будет тот же самый.
И касательно вложенных блоков. Как-то у меня не получилось повторить подобную ситуацию. Несколько проходов по коллекции блоков удалили вложенные. Конечно, там можно добавить массу проверок, но я подобным просто не заморачивался. Если надо, могу попробовать на днях что-нибудь нарисовать.

От: TararykovDG

TararykovDG — Thu, 26 Apr 2012 12:53:08 +0000

Алексей, ну уж извини, снова есть вопросы. Во-первых, последний код при обработке блоков, удалит все листы (*PaperSpace0 и т.д.), кроме того, который является текущим (ну да это легко исправить, добавив проверку IsLayout для каждого элемента из коллекции блоков). Во-вторых, не удалит вложенные блоки (как это делает (vl-cmdf "_.-purge" "_Block" "*" "_No")), которые до удаления их родительских блоков не являлись неиспользуемыми, а после могли таковыми стать. И здесь самое интересное даже повторное прохождение по коллекции блоков и применение к нем vla-delete не удаляет такие блоки, хотя в утилите очистки чертежа блоки появляются.

От: TararykovDG

TararykovDG — Thu, 26 Apr 2012 10:50:47 +0000

И еще есть вопрос, в последнем коде используется функция vlax-get, которая, наряду с vlax-put является не документированной, и как пишет Н. Полещук: “Возможно, в очередной версии AutoCAD они окажутся изъятыми…
…использование этих функций не может быть рекомендовано ввиду неясности их дальнейшей судьбы”

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

Кулик Алексей aka kpblc — Thu, 26 Apr 2012 10:45:20 +0000

Ага, спасибо, исправляю

От: TararykovDG

TararykovDG — Thu, 26 Apr 2012 10:32:27 +0000

Алексей, здравствуй! Спасибо за пример тихого выполнения команд, мне пригодился для замены _-purge’мета, в четвертом коде (или втором снизу) одна лишняя скобка:
(repeat 3 (vla-purgeall adoc))
) ;_ end of repeat