[Zaghim]

Пока не выходит((((
Выкладываю чертеж, выкладываю текст программы...
Должно получиться, что бы весь план стал в слое xref.


Самым идеальным вариантом работы будет следующее...
Единожды выбираем то, с чем хотим работать, в данном случае план и команда будет работать след образом:
Анлочит все слои, делает слой хреф, делает 2 раза бёрст потом эксплод и все что получилось кидает в слой хреф, потом вопрос повторить еще раз? ... было бы мега круто

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

На переименование темы - 12 часов.

[alex8888]

Offtop: Кулик Алексей aka kpblc,чем название темы неправильно? Хотя, не знаю как программа, а вот планчик действительно супер-пупер
Мне, машиностроителю такое и не снится
Zaghim, а где у тебя двери для входа/выхода из 1-комнатных аппартаментов? (самый левый нижний угол здания, например (А1))

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

Сообщение от alex8888 чем название темы неправильно?

Тем, что таких программ (супер-пупер-гипер) - каждая вторая в сети, не считая каждой первой )

[Zaghim]

На план мне пофик, я его не делаю...такое присылают)))
Кто поможет с программой?
Кулик Алексей aka kpblc, Как тему назвать?

[alex8888]

Может быть тему просто назвать : "Программа для подготовки X-ref'ов"?

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

Сообщение от Zaghim Как тему назвать

Уже назвал Нормально, пойдет...

[alex8888]

Все равно не понятна суть задачи.
Сначала Включить все слои (есть команда layon),
потом ssget-ом выбрать что нужно, затем
создать новый слой (-layer),
далее burst и explode,
потом копировать свой выбор на новый слой -так?
А все старое стереть?

[Zaghim]

Нет...не включить слои, а сделать Unlock слоев...просто слои в Lock нельзя выбрать и соотв. модифицировать. Затем набираем команду, выбираем план, жмем enter, создается слой хреф (это реализовано), делается команда берст 2 раза (реализовано) затем эксплод, можно эксплод всего, а не то что выбирали (это не работает), потом ВСЕ что на чертеже, а так же поберстенное и взорванное кидаем в слой хреф (реализовано), ну и команда purge, тоже сделал.

[alex8888]

Тогда выбираем (command "-layer" "_unlock" "*" "") - все слои отунлочатся

[Zaghim]

Оке, спасибо!!!!
И еще один вопрос по теме, где-то писали как все взорвать:
(defun ai ( / ss )
(vl-load-com)
(repeat 2
(if
(setq ss (ssget "_X" (list
(cons 0 "INSERT")
(cons 410 (getvar "CTAB"))
)
)
)
(progn
(setvar "PICKFIRST" 1)
(sssetfirst nil ss)
(vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) "_.EXPLODE\n")
)
)
)
)

Можно таким же макаром, только сделать такую команду: (command "change" "all" "" "p" "la" "X-ref" "")

[alex8888]

А так: (command "_explode" "_all" "")?

[Zaghim]

Нет, так не пашет...уже обсуждали)

[VVA]

Сообщение от Zaghim Можно таким же макаром, только сделать такую команду: (command "change" "all" "" "p" "la" "X-ref" "")

Код:

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

(if (null (tblsearch "Layer" "X-ref"))(command "_.-Layer" "_N" "X-ref" ""))
(command "_change" "_all" "" "_p" "_la" "X-ref" "")

[Zaghim]

Не то имел ввиду... Просто, что взрыв, что изменение, Когда пишешь алл, он как-то не правильно срабатывает...думал можно по-одному каждый примитив прогнать и поменять, так скажем, лично)

[VVA]

Сообщение от Zaghim .думал можно по-одному каждый примитив прогнать и поменять, так скажем, лично)

_matchprop (КОПИРОВАТЬСВ)