[Juss_00]

Ночи доброй, посоветуйте.
Сейчас черчу в МагиКаде в двух окнах (план/3д). Планировки в АДТ подердактированны, всё красиво и замечательно.
Но очень не удобно работать с "Z" коардинатой, привязки приходится отключать а то линии "улетают", крутить весь чертёж больше 2000м2 из за для того что бы "посмотреть а что получилось вон за той трубой". Использую просмотр обхектов 3д (на правой клавиши мыши) но от туда не получается редактировать.

Посоветуйте/научите. Какими командами и как сделать работу в таком 3д удобнее и быстре.

п.с. думал что может быть какое нибудь секущее окно что бы можно было бы как в разрез смотреть. И какая нить командща блокирющая привязку осей только в плоскость ХоУ. Менял бы ПСК иногда спецально под это но был бы уверен что не привязался чертёж ни к каой мути в дургом краю чертежа.

Вообщем, буду признателен.

[Stierlitz]

чото я ни чо не понял(
==
автокад трудно изучить по ходу и как следует(
я на курсах по 3д автокаду 40часов учился... чего и вам советую

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

_.filter?

[AlexV]

Я так понял, дело в координатных скорее фильтрах... Они в автокаде, конечно, есть, но не очень удобны. Я тут как раз по случайности программку накатал, аналог фильтров (см. вложение). В зависимости от установленных галок X, Y, Z фильтрует точку при перемещении / копировании объектов. Заодно две кнопки - отключение видимости выбранных наборов примитивов (независимо от слоя, через с-во visible). Ну и включение, соответственно, для всех в пространстве модели..


Файл DVB в #13

[sasha_lif]

AlexV, а подскажи как запускать, а то что-то ругается?

Command: _appload _Move_Copy_XYZ.dvb successfully loaded. Command: _Move_Copy_XYZ Unknown command "MOVE_COPY_XYZ". Press F1 for help.

[Огурец]

Работайте с клавиатуры, и будет Вам счастье.

[ToltekIV]

Огурец, Давно хотел спросить, а вы в голом автокаде трудитесь?

[Огурец]

Нет. СПДС 5.0, Magicad, ADT(редко). Присматриваюсь к Ревиту. Правда предпочитаю 2005, там рендер исключитально качественый и быстрый. Должен прямо сказать, что для моделирования голый автокад исключительно хорош, а вот для оформления, раскладки труб и тд. - примочки и прибамбасы.

[AlexV]

Сообщение от sasha_lif AlexV, а подскажи как запускать, а то что-то ругается?

Ну, это есть макрос VBA. После загрузки запустить его можно через Alt+F8 (или меню Сервис - Макросы), выбрать из списка загруженных макросов и - "Выполнить". Можно повесить его на кнопку, макрос:
^C^C-vbarun _Move_Copy_XYZ.dvb!Module1.main
Файл dvb должен быть сохранен в папку, путь к которой прописан в настройках автокада. Иначе - вместо имени поставить полный путь.

Работайте с клавиатуры, и будет Вам счастье.

Огурец, а что, при работе с клавиатуры привязки не используются? Все точки вручную забиваете? К примеру, нужно скопировать объект привязавшись к другому по одной оси (например, на вложенном рисунке цилиндр, привязавшись к призме так, что бы X и Z остались прежними). Можно замерить расстояние между точками и вбить его с клавиатуры; можно создать линейный размер и при перемещении привязываться к нему, полилинии дополнительные прорисовать, или координатные фильтры использовать. Но они неудобны, надо сначала из контекстного меню выбрать XZ, щелкнуть по базовой точке перемещения, затем из него же выбрать Y и затем по конечной точке. Муторно оно! Я и написал макрос, работает как обычные команды переместить и копировать, но - по указанным осям.

[Огурец]

Сообщение от Juss_00 1.Использую просмотр обхектов 3д (на правой клавиши мыши) но от туда не получается редактировать. 2. п.с. думал что может быть какое нибудь секущее окно что бы можно было бы как в разрез смотреть. 3. И какая нить командща блокирющая привязку осей только в плоскость ХоУ.

1. А у Вас перспектива отключена? Это единственное, что не даёт редактировать в трёхмерке.

2. Да, такая возможность в автокаде есть, называется sectionplane.

3. Работайте простой (не трёхмерной) полилинией, она всегда остаётся в XOY.

[sasha_lif]

AlexV, большое спасибо за ваш макрос , копирование и перемещение работают, а на отключение видимости примитивов ругается variable not defined
в коде

Private Sub CommandButton3_Click() Dim strPrmt As String Dim objEnt As AcadEntity Dim objSelectionSet As AcadSelectionSet Dim objDrawingObject As AcadEntity Do On Error Resume Next ThisDrawing.SelectionSets("TempSSet").Delete Set objSelectionSet = ThisDrawing.SelectionSets.Add("TempSSet") On Error GoTo Err_Control ThisDrawing.Utility.Prompt "Óêàæèòå îáúåêòû äëÿ îòêëþ÷åíèÿ âèäèìîñòè" & vbCrLf objSelectionSet.SelectOnScreen If objSelectionSet.Count = 0 Then Exit Sub For Each objDrawingObject In objSelectionSet objCopyObject.Visible = False

[Огурец]

Сообщение от AlexV Огурец, а что, при работе с клавиатуры привязки не используются? Все точки вручную забиваете?

Нет конечно!!! Использую привязки по полной программе, часто включая или выключая нужные и ненужные. Я имел в виду, что нельзя работать только мышью - это порочная техника.

[AlexV]

Сообщение от sasha_lif AlexV, большое спасибо за ваш макрос , копирование и перемещение работают, а на отключение видимости примитивов ругается variable not defined в коде

Извиняюсь, не тот файл загрузил... Вот другой:

[sasha_lif]

AlexV, еще раз большое спасибо, давно искал
здесь помогли
http://forum.dwg.ru/showthread.php?t=34646

а аще вопрос: что это он выдает, после включения видимости примитивов:

Command: Кол-во объектов:1. Новые значения: площадь: 0.39 м\U+00B2 длина: 1878.51 мм Кол-во объектов:1. Новые значения: площадь: 0.39 м\U+00B2 длина: 1878.51 мм Кол-во объектов:1. Новые значения: площадь: 0.21 м\U+00B2 длина: 1481.79 мм Кол-во объектов:1. Новые значения: площадь: 0.21 м\U+00B2 длина: 1481.79 мм

[AlexV]

Сообщение от sasha_lif ..а аще вопрос: что это он выдает, после включения видимости примитивов:

Command: Кол-во объектов:1. Новые значения: площадь: 0.39 м\U+00B2 длина: 1878.51 мм Кол-во объектов:1. Новые значения: площадь: 0.39 м\U+00B2 длина: 1878.51 мм Кол-во объектов:1. Новые значения: площадь: 0.21 м\U+00B2 длина: 1481.79 мм Кол-во объектов:1. Новые значения: площадь: 0.21 м\U+00B2 длина: 1481.79 мм

Это чего, мой макрос так ругается? Не знаю; форма немодальная, т.е. в процессе выполнения макроса можно брать команды автокада. Теоретически это не должно давать сбоев, но может, - какая команда была активна до нажатия на кнопку формы?

[sasha_lif]

AlexV, попробовал еще раз= в этот раз все чисто, но в прошлый раз - выдавало площади и длины, скорее всего это хвост zxarall и zxarparam были где то здесь программки , для подсчета и вывода площадей., нО вроде они были не активны перед нажатием. Будем считать каким-то глюком
Еще раз спасибо за макрос!

[ToltekIV]

Уважаемый Огурец! посмотрел на ваш купол в #8 сообщении, захотел себе такой же, чуть не окосел))) Но кажется получилось похоже.
Автокад голый, но разные версии в основном 2007 и немного 2009.
Автокадовский файл не влез в сообщение, прилепил отдельно.
Offtop: Juss_00, Извини что не в тему, просто купол заинтересовал.

[Juss_00]

Сообщение от guliaevskij автокад трудно изучить по ходу и как следует( я на курсах по 3д автокаду 40часов учился... чего и вам советую

guliaevskij, ваше личное мнение.

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

AlexV, заранее спасибо за макрос, буду разбираться.
Offtop: Не знал что акад ещё и макросы ест.. эх вот уже неделю нет времени начать лиспу ковырять.. (

Огурец,

Нет конечно!!! Использую привязки по полной программе, часто включая или выключая нужные и ненужные. Я имел в виду, что нельзя работать только мышью - это порочная техника.

,
Да срадостью бы вбивал цифрами коардинаты, но в магикаде не удобно (или просто я ещё не наловчился за неделю). Чертежи большие, всё в 3д, куча коридоров, воздуховоды сравнимы с коридорами по размерам, бывает что зазоров на 2 метра корилора 200-400 мм. Тут уж оч не удобно. (мне)

1. А у Вас перспектива отключена? Это единственное, что не даёт редактировать в трёхмерке. 2. Да, такая возможность в автокаде есть, называется sectionplane. 3. Работайте простой (не трёхмерной) полилинией, она всегда остаётся в XOY.

1) ПРо перспективу не знаю, проверю..
2)Спасибо, посмотрю.
3)Чертить отдельно почти ничего не надо, просто много перемещений этих не очень иногда удобных блоков по 3 коардинатам.

Всем спасибо, посмотрю всё, поправлю сообщение или отпишусь. )

[sasha_lif]

AlexV,

После загрузки запустить его можно через Alt+F8 (или меню Сервис - Макросы), выбрать из списка загруженных макросов и - "Выполнить". Можно повесить его на кнопку, макрос: ^C^C-vbarun _Move_Copy_XYZ.dvb!Module1.main

Да, работает, а как его можно повесить в автозагрузку, чтобы при загрузке акада, сразу появлялось это окно (без нажатия на кнопку)
Попробовал в acad.lsp дописать
(Command "-vbarun" "_Move_Copy_XYZ.dvb!Module1.main")
но глюк:
при старте акада открывается как и положено , пустой файл,=ваше окно уже запущено, Но при попытке Open, загружается мой файл, но акад дальше не реагирует на комманды, по F2 вижу:

AutoCAD Express Tools Copyright © 2002-2003 Autodesk, Inc. -vbarun

Что не так делаю?

[Juss_00]

AlexV, спасибо ваша программа как раз то что надо. ПОльзуюсь ей и макросом

Код:

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

^C^C(if(setq ss nil ss (ssget))(command "_.Move" ss "" pause ".Z" "@"))

.

Эх, научится бы когда ни будь ваять такие штуки.. )
Спасибо. за вашу программу. )