| Правила | Регистрация | Пользователи | Сообщения за день | | Поиск | | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
10.05.2004, 03:25 | #1 | |
Kак "взорвать" MINSERT BLOCK ??
AutoCAD/AutoLISP
Seattle/USA
Регистрация: 27.08.2003
Сообщений: 1,133
|
||
Просмотров: 167502
|
|
||||
Сообщений: n/a
|
Есть еще один вариант. Но надо владеть знаниями DXF.
Сохраняешь файл в формате DXF. Потом ищешь в нем начало описание примитива MINSERT. Меняешь на INSERT. Возможно понадобиться убрать количество рядов и колонок (коды вроде 70 и 71). После этого открываешь файл в AutoCAD'е и видишь, что MINSERT превратился в INSERT. Он расчленяется. |
|||
|
||||
сисадмин Регистрация: 26.08.2003
Самара
Сообщений: 1,022
|
Согласен с Alxd по способу "правки". Только считаю, что удобнее все же переименовать блок, чтоб он перестал быть анонимным. А потом можно делать с ним все что угодно.
К сожалению, объем правки DXF в этом случае будет несколько больше. |
|||
|
||||
Регистрация: 04.05.2006
Сообщений: 37
|
Здраствуйте!
Помогите разобраться с такой вот штукой.. Не взрывается не редактируется. Для чего их такими делают и как с ними потом работать.... Чего то с файлом прикрепленным никак тема не создается... попробую как ответ прикрепить. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,855
|
Это многовидовые блоки, что ли?
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,855
|
Хехехехе, защита Эдуарда и Alshera работает На полную катушку.
В общем, присылай мне на почту - попробую расковырять (хоть научусь, может быть )
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Регистрация: 04.05.2006
Сообщений: 37
|
DEFUN c:minxpld()
(SETQ A (ENTSEL "\nSelect minserted block to explode: ")) (SETQ B (ENTGET (CAR A))) (SETQ XSC (CDR (ASSOC 70 B)) YSC (CDR (ASSOC 71 B)) ) (SETQ XSP (CDR (ASSOC 44 B)) YSP (CDR (ASSOC 45 B)) ) (COND ((AND (= XSP 0)(= YSP 0))(SETQ XSC 1 YSC 1)) ((AND (/= XSP 0)(= YSP 0))(SETQ YSC 1)) ((AND (= XSP 0)(/= YSP 0))(SETQ XSC 1)) ) (SETQ C (SUBST (CONS 70 1)(ASSOC 70 B) B)) (SETQ D (SUBST (CONS 71 1)(ASSOC 71 B) C)) (SETQ ENT (CDR (ASSOC -1 (ENTMOD D)))) (COND ((AND (= XSC 1)(= YSC 1))(COMMAND "_EXPLODE" ENT "")) ((= XSC 1) (COMMAND "_ARRAY" ENT "" "R" YSC XSC YSP )) ((= YSC 1) (COMMAND "_ARRAY" ENT "" "R" YSC XSC XSP )) ( T (COMMAND "_ARRAY" ENT "" "R" YSC XSC YSP XSP)) ) ) Не работает |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,855
|
Е-мое, а что, письмо не пришло? Я ж недавно тебе отправлял...
P.S. И еще - у тебя ж архива только кусочек, предупреждать надо
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||