[Positron]

Не знал как правильно назвать...
Объясняю суть:
______________________________________________________________________
Нужно 1 кнопкой сделать создание нового файла с условиями:

1. Выделяем объекты которые необходимы в новом файле

2. Авто определение базовой точки (начало координат нового файла 0.0.0) по углу прямоугольника (из 4 углов выбирается тот который ближе всего к осям 0X.0Y), а прямоугольник (1 шт.) сам находится из всех файлов по заданными параметрами (цвет, тип линии, толщина, слой - ети параметры уже указаны в лиспе)

3. Название файла находится как текст с определённым цветом (например синий) (находится из выделенных объектов соотвецтвенно)

4. Сохраняется заданном формате "2004"

5. Путь сохранения "нового файла" идёт в папку которая присуцтвует возле самого "исходного файла" с именем <<G_"имя исходного файла">>
если папки нет то она создается

_______________________________________________________________________________
Вот и всё... причина тому использование 2-й программы она юзает Автокад 2004 формата
все эти операции делаются вручную и много раз в день...
Огромная благодарность человеку который поможет хотябы начать LISP файл...

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

Это имитация _wblock, что ли?

[Positron]

Сообщение от Кулик Алексей aka kpblc Это имитация _wblock, что ли?

Похоже только в данной команде больше автоматически

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

Превосходно. А теперь разбор задачи "по косточкам":
1. Выделили, вопросов нема.
2. Вот перевод бы посмотреть, особенно на примере. А что делать, если границы выделенных объектов отстоят от центра текущей системы координат на одинаковое расстояние (например, на 10 000 единиц чертежа в положительном и в отрицательном направлениях)? А учитывать только мировую систему координат или текущую? А что делать с пространством листа? И т.д.
3. А текст синий - это цвет по слою? Или у него принудительно задан цвет? А если это не текст, а атрибут, например (который выглядит как текст)? Или это блок с атрибутом? А если текстов несколько?
4. Ладно, пока оставим.
5. А если текущий файл еще ни разу не сохранялся?
P.S. Заниматься задачей лично я точно не смогу - попросту некогда. А вопросы задаю для того, чтобы имеющие время на написание кода голову не ломали и не переделывали одно и то же по сотне раз.

[Positron]

Сообщение от Кулик Алексей aka kpblc 2. Вот перевод бы посмотреть, особенно на примере. А что делать, если границы выделенных объектов отстоят от центра текущей системы координат на одинаковое расстояние (например, на 10 000 единиц чертежа в положительном и в отрицательном направлениях)? А учитывать только мировую систему координат или текущую? А что делать с пространством листа? И т.д.

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

>учитывать только мировую систему координат =
да

>А что делать с пространством листа?=
данная команда юзается будет только в модели,
а пространство листа например из шаблона по которому был создан "исходный файл", или если сложно то без изменений (пустой)

Сообщение от Кулик Алексей aka kpblc 3. А текст синий - это цвет по слою? Или у него принудительно задан цвет? А если это не текст, а атрибут, например (который выглядит как текст)? Или это блок с атрибутом? А если текстов несколько?

>А текст синий - это цвет по слою? Или у него принудительно задан цвет?=
да, у него принудительно задан цвет

>А если это не текст, а атрибут, например (который выглядит как текст)? Или это блок с атрибутом?=
Тогда учитывать только Мтекст , или в таблице текст (атрибуты, блоки неучитывать)

>А если текстов несколько?=
тогда вписуются все по очереди через пробел

Сообщение от Кулик Алексей aka kpblc 5. А если текущий файл еще ни разу не сохранялся?

Тогда вылазит сообщение уведомляющее об етом, типа "текущий файл еще ни разу не сохранялся"

[Positron]

На данный момент нашол данный выход в 3-х кнопках:
1. ^C^C_copybase;\\\;_qnew;
2. ^C^C_pasteclip 0,0,0;'_.zoom _e;_saveas;
3. ^C^C'_.zoom _e;_.saveas;2004;;y;_close;

Вопрос к тем кто может помогти в этом вопросе->
как свисти это в 1 лисп или макрос с учотом 3-го пункта?

3. Название файла находится как текст с определённым цветом (например синий) (находится из выделенных объектов соотвецтвенно)

Сообщение от Positron Цитата: Сообщение от Кулик Алексей aka kpblc 3. А текст синий - это цвет по слою? Или у него принудительно задан цвет? А если это не текст, а атрибут, например (который выглядит как текст)? Или это блок с атрибутом? А если текстов несколько? >А текст синий - это цвет по слою? Или у него принудительно задан цвет?= да, у него принудительно задан цвет >А если это не текст, а атрибут, например (который выглядит как текст)? Или это блок с атрибутом?= Тогда учитывать только Мтекст , или в таблице текст (атрибуты, блоки неучитывать) >А если текстов несколько?= тогда вписуются все по очереди через пробел

И если ето возможно и 5-го
5. Путь сохранения "нового файла" идёт в папку которая присуцтвует возле самого "исходного файла" с именем <<G_"имя исходного файла">>
если папки нет то она создается

Сообщение от Positron Цитата: Сообщение от Кулик Алексей aka kpblc 5. А если текущий файл еще ни разу не сохранялся? Тогда вылазит сообщение уведомляющее об етом, типа "текущий файл еще ни разу не сохранялся"

Или кто знает как прописуются подобные коды, на поиск текста с задаными условияи и на сохранение файла по пути возле файла. я попробую обмозговать...

[Positron]

Люди пожалуста помогите!
как зделать макрос 1 из етих 3-х?
тоисть обеденить штобы после создания нового файла оно включало 2-й макрос,а потом после указания адреса и названия 3-й макрос...
себто 3 в 1-м
1. ^C^C_copybase;\\\;_qnew;
2. ^C^C_pasteclip 0,0,0;'_.zoom _e;_saveas;
3. ^C^C'_.zoom _e;_.saveas;2004;;y;_close;