[kakt00z]

Здравствуйте!
собственно вопрос - нужно программно разбить acad_proxy_entity в дополнительно открытом файле

Код:

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

      ;(setq path "d:\\_TDMS\\1744-1-АТМ1\\1744-1-АТМ1 л.64.dwg")
     (setq docs (vla-get-Documents #cad))
     (setq $doc (vla-open docs path))

     (setq $sset (vla-get-ActiveSelectionSet $doc))
     (vla-Clear $sset)
     (vla-Select
       $sset
       acSelectionSetAll
       nil nil
       (vlax-safearray-fill (vlax-make-safearray vlax-vbInteger '(0 . 0)) '(0))
       (vlax-safearray-fill (vlax-make-safearray vlax-vbVariant '(0 . 0)) '("ACAD_PROXY_ENTITY"))
       )
     (________ $sset) ; / или lambda ____
     (vla-close $doc)

есть варианты?

[Кулик Алексей aka kpblc]

ExplodeAllProxy от А.Ривилиса

[kakt00z]

ExplodeAllProxy от А.Ривилиса
это конечно хорошо, и спасибо, но
почему тогда в активном документе можно нажать на кнопочку _explode, указать proxy-объект и он разобьется без каких либо дополнительных arx-файлов, штатными средствами?

[Кулик Алексей aka kpblc]

Отлично. А как быть с вложенными в блоки прокси-объектами? А как поступать с неграфическими прокси-объектами?
Комплекс от Александра обе эти проблемы решает "на ура"

[kakt00z]

какбыть-какбыть - разбить )))
разбить прокси-объект на примитивы - уже подразумевает то, что он, и содержащаяся в нем информация (кроме графической) использоваться не будет, поэтому неграфические - сразу delete (благо, этот метод у них есть)
по блокам - да, тоже нужно "пробежку" добавить
вопрос из поста #3 без ответа

[Кулик Алексей aka kpblc]

Прокси-объект разобъется а) только если у него прописан был метод Explode и б) только командой (т.е. только в активном пространстве). vla-explode на него не срабатывает.
Offtop: Как-то не очень понимаю - есть отлично работающее решение, зачем пытаться выдумывать свое?

[kakt00z]

ну это я уже знаю
строчка

Код:

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

 (command "_explode" (vlax-vla-object->ename (vla-item $sset 0)))

в активном окне работает
пробую писать так

Код:

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

 (mapcar
       '(lambda (x)
	  (vla-sendcommand $doc "_.explode")
	  (vla-sendcommand $doc (vlax-vla-object->ename x))
	  (vla-sendcommand $doc "")
	  )
       (kd-container->list $sset)
       )

но тут выдает ошибку
; error: lisp value has no coercion to VARIANT with this type: <Entity name: 7ec2fa40>

[Кулик Алексей aka kpblc]

Ага, команду, да необязательно в текущем документе? Unreal: http://autolisp.ru/2010/04/08/procee...tive-document/

[kakt00z]

спасибо, полезно , почитал
а что если временно добавить процедурку в автозагрузку, временно, пооткрывать - посохранять нужные файлы, и потом убрать? (просто мысль, а вдруг уже кто-то пробовал...)

[Кулик Алексей aka kpblc]

Там же, первые прикидки (на доработку тупо нет времени): http://autolisp.ru/2013/10/22/batch-clear-dwg/
Хочешь - займись

[kakt00z]

порылся, выяснил :
если добавить в автозагрузку файл, содержащий

Код:

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

 (while (setq ss (ssget "_X" '((0 . "*PROXY*"))))
  (command "_explode" ss)
  )

то все отрабатывает, зомби-объекты разбиваются, НО
чтобы автокад "поверил" в изменения в реестре ветки ... Appload\Startup, - его надо перезапустить а это к сожалению не выход...
или как вариант искать способы изменения автозагрузки не через реестр

автозагрузку пробовал менять так :

Код:

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

 (setq lsppath (findfile (strcat #lisppath "automenu\\proxy-explode-autocode.LSP")))
(setq
  regpaths
   (list
     (strcat (strcat "HKEY_CURRENT_USER\\" (vlax-product-key) "\\Profiles\\" (vla-get-activeprofile (vla-get-profiles (vla-get-preferences (vlax-get-acad-object))))) "\\dialogs\\appload")
     ;(strcat "HKEY_USERS\\" (car (vl-registry-descendents "HKEY_CURRENT_USER\\Software\\Microsoft\\Protected Storage System Provider")) "\\" (vlax-product-key) "\\Profiles\\" (vla-get-activeprofile (vla-get-profiles (vla-get-preferences (vlax-get-acad-object)))) "\\dialogs\\appload")
     )
  )

(setq rsuffix "Startup")
(setq al:params (vl-registry-descendents (strcat (car regpaths) "\\" rsuffix)"*" ))
(if (null (member lsppath (mapcar '(lambda (x) (vl-registry-read (strcat (car regpaths) "\\" rsuffix) x)) al:params)))
  (mapcar
    '(lambda (rpath)
       (vl-registry-write (strcat rpath "\\" rsuffix) (strcat (itoa (length al:params)) rsuffix) lsppath)
       (vl-registry-write (strcat rpath "\\" rsuffix) (strcat "Num" rsuffix) (itoa (length al:params)))
       )
    regpaths
    )
  )

(setq rsuffix "History")
(if (null (member lsppath (mapcar '(lambda (x) (vl-registry-read (strcat (car regpaths) "\\" rsuffix) x)) al:params)))
  (mapcar
    '(lambda (rpath)
       (vl-registry-write (strcat rpath "\\" rsuffix) (strcat (itoa (length al:params)) rsuffix) lsppath)
       (vl-registry-write (strcat rpath "\\" rsuffix) (strcat "Num" rsuffix) (itoa (length al:params)))
       )
    regpaths
    )
  )

подсмотрел тут http://www.arcada.com.ua/forum/viewt...asc&highlight=

ЗЫ: может особенности моей системы, но заметил, что второй ключ реестра меняется автоматом, поэтому строчка закоментирована
ЗЗЫ: если запустить _appload до перезапуска автокада, то изменения в реестре откатываются назад, подозреваю что appload синхронизирует данные реестра с чем-то еще, (mnl?)

[Кулик Алексей aka kpblc]

Сообщение от kakt00z если добавить в автозагрузку файл, содержащий

То сработает это только в открываемом файле. Учитывая, что лисп работает внутри документа, у тебя будут приличные трудности при пакетной обработке. У тебя же "дополнительно" открываемый файл, верно?
P.S. От использования StartupSuite я отказался уже минимум года 3 назад - есть более безопасные способы.

[kakt00z]

поражаюсь твоей сдержанности ...
имел ввиду что при запуске "процедуры" временно менять {уже заранее установленный дополнительный *.lsp в автозагрузке} и после завершения - возвращать его (дополнительный *.lsp) в исходное состояние
но со временем дошло ..., напороться можно на многое, даже проще перечислить на что "ненапоротсья"
вывод - вопросы такого рода лучше решать независимо от автокада .. и это не автолисп...
ветку можно закрыть

[Кулик Алексей aka kpblc]

Сообщение от kakt00z вопросы такого рода лучше решать независимо от автокада .. и это не автолисп...

Ну, не совсем
http://autolisp.ru/2014/03/24/clear-dwg-at-opening/ + http://autolisp.ru/2013/10/22/batch-clear-dwg/
И не забыть про
http://autolisp.ru/2014/03/31/to-rivilis-users/

[kakt00z]

на вскидку - интересно, будет время- будет суть, но подозреваю что сломать - могу.. )
а пока Offtop: меня начальник {дино} заставил приводить чертежи динозавров в {удовлетворяющий заказчика вид} и я заразился blond где тут офтоп.... нашол...
я все думаю , как после такого нас "заказывают"
..... а вообще kpblc, ты мог бы сказать - решил вопрос или нет - и если нет - то почему?

[Кулик Алексей aka kpblc]

В полном объеме очистку можно выполнить (если касаться лиспа, и не 2015 версии) только в текущем документе. Эрзац-очистку можно попробовать выполнить и пакетно - но там нет удаления прокси, например. А проверку файла можно сделать только через консольный acad, написав соответствующий src-файл. Так что решение у меня "половинчатое"