[xag]

Уважаемые форумчане. Помогите пожалуйста с решением такой задачи.
AutoCAD 2017 рус
Очень много приходится рисовать однотипные фундаменты.
1) Вот нарисовал один фундамент Фм1, оформил на листе видовыми экранами. Получилось около 10 видовых экранов.
2) Теперь копирую в модели Фм1 на свободный участок вправо. Получаю фундамент Фм2. Копирую вкладку лист с Фм1. Получаю лист с 10 видовыми экранами.
3) Теперь чтобы настроить на новом листе видовые экраны под Фм2 приходится:
- разблокировать 10 видовых экранов
- зайти в видовой экран.
- применить команду "_-pan Базовая точка или смещение: "
- указываю базовую точку, курсором мыши указываю направление, и в командной строке набираю; Вторую точку: 50000 (например). Происходит смещение пространства модели в видовом экране на фундамент Фм2.
- и таких операций требуется проделать еще для 9 видовых экранов.
- заблокировать 10 видовых экранов.
У меня выполнение этих операций иногда занимает до 1часу времени на 1 фундамент.

Можно ли на лиспе решить такую задачу?
1) выбрать видовые экраны
2) разблокировка ВЭ
3) задать направление и на какое расстояние требуется выполнить панорамирование. (хотя можно просто по Х)
4) панорамирование на требуемое расстояние
5) блокировка ВЭ

[Krieger]

Если объединить видовые экраны в группу, то панорамирование видов происходит одновременно и одинаково во всех экранах. Тащишь за одну ручку в сторону и все. Не знаю с какого када это появилось, в 2017-м есть.

[xag]

Так не удобно ведь!
Сперва надо перенести за ручку группы видовых экранов с границы листа на 500 (согласно поставленной задачи, так это надо еще понять, что на 500), а затем перенести видовые экраны назад на место на листе.
Ну это ладно.
Так основное неудобство, что если видовые экраны разных масштабов (например М1:100 и М1:50), то корректный перенос за ручку группы видовых экранов на 500 будет только для видовых экранов с М1:100, а для М1:50 требуется перенос в два раза больше т.е. на 1000.

[Кондратий Тихонович]

Сообщение от Krieger Если объединить видовые экраны в группу

Каким образом?

----- добавлено через ~4 ч. -----
погуглил.
гугль об этом ничего не знает

[Krieger]

Команда "_GROUP"

[Кондратий Тихонович]

Сообщение от Krieger Команда "_GROUP"

Не катит.
Мне нужно чтобы синхронно скролилось в пространстве модели

[Кондратий Тихонович]

Сообщение от Krieger Тащишь за одну ручку в сторону и все.

Какую ещё "ручку"?
Приведите скриншот

[Krieger]

Сообщение от Кондратий Тихонович Какую ещё "ручку"? Приведите скриншот

После создания группы из видовых экранов появляется одна общая ручка.

[Кондратий Тихонович]

Спасибо за HELP.

Только я не понял: Как Вы в пространстве модели создали эти квадраты?

----- добавлено через ~16 ч. -----
Krieger
Чото не получается
Вы уверены, что поняли задачу?
Нужно не рамки видовых экранов двигать одновременно, а содержимое модели в этих ВЭ

[Krieger]

Сообщение от Кондратий Тихонович Спасибо за HELP. Только я не понял: Как Вы в пространстве модели создали эти квадраты? ----- добавлено через ~16 ч. ----- Krieger Чото не получается Вы уверены, что поняли задачу? Нужно не рамки видовых экранов двигать одновременно, а содержимое модели в этих ВЭ

Ну да, сам так делаю. Если двигать за ручку группы, то содержимой модели остается на месте относительно пространства листа, а видовые экраны смещаются. Это не одно и тоже с командой _move.
Записал видео.

Нажмите для просмотра

https://www.youtube.com/watch?v=hW2_OhZCV_Q&feature=youtu.be

[maratovich]

Для всех заинтересованных - вот решение https://youtu.be/sinJgz8MAzk
Offtop: а для Кондратий Тихонович:
Все говорят "Чото не получается", а ты купи слона.

[Кондратий Тихонович]

Сообщение от Krieger Ну да, сам так делаю. Если двигать за ручку группы, то содержимой модели остается на месте относительно пространства листа, а видовые экраны смещаются.

Так мне не это нужно. Задача совсем другая.
Нуужно чтобы границы видовых экранов стояли на месте, а содержимое модели во всех ВЭ синхронно смещалось.
Вы решили не ту задачу

----- добавлено через ~17 мин. -----

Сообщение от maratovich Для всех заинтересованных - вот решение https://youtu.be/sinJgz8MAzk

На Вашем видео описано решение совсем другой задачи.
А в этой теме стоит задача как синхронно драг анд дропить содержимое модели СРАЗУ в нескольких ВЭ..
А Вы в видео рассказываете как быстро создать именованные виды и как быстро переключаться между ними.
Вы правда не понимаете, что это совсем другая задача?

----- добавлено через ~18 мин. -----
И что "видовой экран" и "именованный вид" совершенно из разных опер тоже не понимаете?

[Krieger]

Сообщение от Кондратий Тихонович Так мне не это нужно. Задача совсем другая. Нуужно чтобы границы видовых экранов стояли на месте, а содержимое модели во всех ВЭ синхронно смещалось. Вы решили не ту задачу

Я решил задачу автора темы и отвечал на его вопрос.
На ваш вопрос:

Не катит. Мне нужно чтобы синхронно скролилось в пространстве модели

Я ничего не отвечал. Так как вообще не понял о чем речь.
Далее последовал весьма конкертный вопрос:

Какую ещё "ручку"? Приведите скриншот

На который я конкретно и ответил.
И т.д. и т.п. Следите за диалогом.

Если вам предложенный мною вариант не подходит, ну селяви. Я тогда не пойму что вам надо.

[baksconstructor]

Offtop:

Сообщение от Krieger Если вам предложенный мною вариант не подходит, ну селяви. Я тогда не пойму что вам надо.

Krieger не обращайте внимание на Кондратий Тихонович, это троль, ему во всех темах предлагают купить слона

[Кондратий Тихонович]

Сообщение от Krieger Я решил задачу автора темы и отвечал на его вопрос.

Нет.
У автора темы вопрос такой же как у меня.
Вы невнимательно прочитали

----- добавлено через ~1 мин. -----

Сообщение от Krieger Я тогда не пойму что вам надо.

Вы и вопроса темы не поняли

----- добавлено через ~4 мин. -----
Вот вопрос топикстартера:

Сообщение от xag Можно ли на лиспе решить такую задачу? 1) выбрать видовые экраны 2) разблокировка ВЭ 3) задать направление и на какое расстояние требуется выполнить панорамирование. (хотя можно просто по Х) 4) панорамирование на требуемое расстояние 5) блокировка ВЭ

Я спрашивал об этом же.

----- добавлено через ~1 ч. -----
Судя по тому, что "мэтры" типа кулика и расвилиса молчат, в автокаде без лиспа это сделать невозможно.

[Сергей812]

Offtop:

Сообщение от Кондратий Тихонович Я спрашивал об этом же.

можете хоть все темы зафлудить - от этого нового функционала в акаде без дополнительных усилий не появится) Даже с ИИ)

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

кондратий, а кто такой расвилис?

[Boxa]

Сообщение от xag Можно ли на лиспе решить такую задачу? 1) выбрать видовые экраны 2) разблокировка ВЭ 3) задать направление и на какое расстояние требуется выполнить панорамирование. (хотя можно просто по Х) 4) панорамирование на требуемое расстояние 5) блокировка ВЭ

если под п.2 понимается не просто установить свойство "Display locked" = No , а сделать VPort активным, т.е. одновременно сделать активными сразу несколько впортов, то такое автокад не позволяет и тогда ответ на цитату будет: штатными средствами такое сделать нельзя, да и не штатными тоже.

Однако, Вам, Кондратий Тихонович, как программисту с 30 стажем, никто не мешает написать некий свой GripOverrule для впорта, потянув за который может выполняться панорамирование в любом направлении (напоминает трекпоинт на ноутах от линово), т.е. при желании панорамирование одного или нескольких впортов можно реализовать и это не так сложно как кажется, правда на лисп /vba и других языках взаимодействующих с COM это сделать не получится, а вот на .NET или ARX вполне. А Вы вроде бы на плюсах писали, так что Вам и карты в руки...

Но я сильно сомневаюсь, что Вы сами будете писать что то подобное, а писать это для Вас за просто так никто в здравом уме не будет, а значит и эта тема превратиться во флудню, как и все с Вашем присутствием. А жаль.

ЗЫ.
Дискламер: с GripOverrule работал и вроде все что хотел получалось и видится проблема не очень сложной, но возможны грабли, на которые еще не наступал.

[Кондратий Тихонович]

Сообщение от Boxa если под п.2 понимается не просто установить свойство "Display locked" = No , а сделать VPort активным, т.е. одновременно сделать активными сразу несколько впортов, то такое автокад не позволяет и тогда ответ на цитату будет: штатными средствами такое сделать нельзя, да и не штатными тоже.

Понял.

А если так:
скрипт очень быстро поочереди активирует и разблокирует вьюпорты, двигает вьюпорт на одну и ту же величину, а потом снова блокирует?

А?
Например задать такое: при нажатие на клавишу "стрелка" модель во всех вьюпортах ПО ОЧЕРЕДИ сдвигается на одну и туже дельту в соответствующем стрелке направлении.


А?

----- добавлено через ~2 мин. -----
Мне кажется это всего пару десятков строчек кода на лиспе

----- добавлено через ~3 мин. -----
И команд всего несколько.
- активировать вьюпорт
- разборкировать/заблокировать вьюпорт
- установить центр вьюпорта в точку с заданными координатами


Всё

[Сергей812]

Сообщение от Кондратий Тихонович Мне кажется это всего пару десятков строчек кода на лиспе ----- добавлено через ~3 мин. ----- И команд всего несколько. - активировать вьюпорт - разборкировать/заблокировать вьюпорт - установить центр вьюпорта в точку с заданными координатами Всё

алгоритм набросали - пора переходить к реализации) с вашим, тем более, опытом программирования...

[Boxa]

Разминки ради накидал набросок реализации: https://youtu.be/3Tkd-XAdJ5o

ЗЫ.
Тема создана в разделе Лисп, так что решение публиковать не буду, но для тех, кто захочет повторить, все решение свелось к своеобразной реализации класса DrawJig , свойство с которым нужно работать - ViewCenter. Вся реализация - сотня строк на C#. Удачи.

[Кондратий Тихонович]

Сообщение от Boxa Разминки ради накидал набросок реализации: https://youtu.be/3Tkd-XAdJ5o

Воха! Это то что нужно

Сообщение от Boxa Вся реализация - сотня строк

Да я и говорил, что для программера задача яйца выеденного не стоит.

А мне тут внушали: "это архисложно. Это невозможно"
Никому верить нельзя

[maratovich]

Offtop:

Сообщение от Кондратий Тихонович Никому верить нельзя

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

[Сергей812]

Offtop:

Сообщение от Кондратий Тихонович Да я и говорил, что для программера задача яйца выеденного не стоит.

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

"Дорогу осилит идущий"(с)

[Boxa]

Сообщение от Кондратий Тихонович Да я и говорил, что для программера задача яйца выеденного не стоит.

Поиски удобного решения и эксперименты заняли приблизительно 3 часа, может чуть больше. Дорогие вы яйца едите Кондратий Тихонович.

Сообщение от Кондратий Тихонович А мне тут внушали: "это архисложно. Это невозможно"

Вы на балет никогда не ходили? Там так красиво, легко и просто балерины порхают над сценой...

Простота и сотня строк, это итоговый, вычищенный результат наброска. Вам ли как программисту не понимать, что разница между наброском и промышленным решением огромна.
Однако, тропинка протоптана, как это сделать рассказано и результат показан, дело за Вами.

[Кондратий Тихонович]

Сообщение от maratovich Завтра вы присмотритесь и скажите - Не, мне другое надо, потому что оба видовых экрана показывают один и тот же участок модели.

Кстати. Да.
Это не айс

----- добавлено через ~4 мин. -----

Сообщение от Сергей812 только за кажущейся "легкостью" решений обычно стоит какое-то определенное количество часов, потраченных на приобретение опыта путем изучения документации и набивания шишек.

Я об этом и говорил выше. Чтот опытному программеру, образно говоря, - это полчаса работы, а мне потребуется полгода-год "набивания шишек".

Такое объяснение я приводил, когда меня спрашивали "ачо ты сам не хочешь написать скрипт на лиспе, который будет делать то, что ты хочешь?"

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

Offtop: кондратий, задача решаема, что ты уже увидел. Вперед, за парту!

[Кондратий Тихонович]

Сообщение от Boxa Поиски удобного решения и эксперименты заняли приблизительно 3 часа, может чуть больше. Дорогие вы яйца едите Кондратий Тихонович.

Тю... 3 часа?
У меня бы это ГОД заняло бы.
Уловили разницу?

----- добавлено через 46 сек. -----

Сообщение от Кулик Алексей aka kpblc кондратий, задача решаема

Код решения в студию.
Пока кода нет - задача не решена

----- добавлено через ~2 мин. -----

Сообщение от Boxa дело за Вами.

Аято здесь при чём?
Я же не кодер.
Я электронищик

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

Сообщение от Кондратий Тихонович Код решения в студию.

1. Вопрос не по адресу
2. $100k - и вперед

Сообщение от Кондратий Тихонович Тю... 3 часа? У меня бы это ГОД заняло бы. Уловили разницу?

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

Сообщение от Кондратий Тихонович Я же не кодер. Я электронищик

Т.е. 30 лет на ассемблере - эт так, для красного словца?

[Boxa]

Сообщение от Кондратий Тихонович Кстати. Да. Это не айс

Т.е. Вас не смутило, что эти видовые экраны и до начала команды показывали одно и тоже место? И с какого рожна они при синхронном панорамирование должны показывать разные места? Или под синхронном панорамированием Вы понимате что то особенное?

Сообщение от Кондратий Тихонович Чтот опытному программеру, образно говоря, - это полчаса работы, а мне потребуется полгода-год "набивания шишек".

Вот именно по этому работа специалиста стоит дорого, не важно прогер, сварщик или фрезеровщик.

Сообщение от Кондратий Тихонович Код решения в студию. Пока кода нет - задача не решена

Вы слова "решаема" от "решения" отличаете?
А по поводу кода в студию и не решена, то:
1. Вы не на поле чудес.
2. Почему Вам кто-то ДОЛЖЕН публиковать код/решение? Тем более код C# находясь в ветке про ЛИСП?

Сообщение от Кондратий Тихонович Аято здесь при чём? Я же не кодер. Я электронищик

А я вообще конструктор ПГС и что?

Образно говоря, Вам дорожку из желтого кирпича показали, вот и топайте, там в конце, будет решение.

[trir]

А мне тут внушали: "это архисложно. Это невозможно"

на Lisp'е может и невозможно

[baksconstructor]

Offtop: Сколько народу повелось на этого троля.... а сколько ещё поведётся

[Сергей812]

Offtop:

Сообщение от baksconstructor Сколько народу повелось на этого троля.... а сколько ещё поведётся

будто в жизни не видели таких людей: которые месяцами могут сидеть и ныть - вместо того, чтобы решить проблему - личными стараниями или наймом исполнителей. Будто он первый - кто приходит и выдает хотелки, а потом садится в ожидании большой сладкой халявы. Просто до большинства доходит раньше тщетность надежд)

[Krieger]

Сообщение от xag Можно ли на лиспе решить такую задачу? 1) выбрать видовые экраны 2) разблокировка ВЭ 3) задать направление и на какое расстояние требуется выполнить панорамирование. (хотя можно просто по Х) 4) панорамирование на требуемое расстояние 5) блокировка ВЭ

Попробуй так:

Код:

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

 (defun Kr_drag_vp (/ adoc ss pt1 pt2 NumberVP lst)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  (if (= (Getvar "TILEMODE") 0)
    (progn
      (princ "\nВыбери видовые экраны: ")
     (if (/= (Getvar "CVPORT") 1) (command "_.PSPACE"))
	  (if (setq ss (ssget '((0 . "VIEWPORT"))))
	    (if (setq lst (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))))
	    (progn
	      (setvar "TILEMODE" 1)
	    	(if (setq pt1 (getpoint "\nУкажи первую точку вектора: "))
		  (if (setq pt2 (getpoint "\nУкажи вторую точку вектора: " pt1))
		    (progn
		      (setvar "TILEMODE" 0)
		      (if (equal (getvar "cvport") 1) (command "_.MSPACE"))
		      (foreach ent lst
			(setq NumberVP (cdr (assoc 69 (entget ent))))
			(setvar "CVPORT" NumberVP)
			(if (eq (setq lock (vla-get-DisplayLocked (setq vla (vlax-ename->vla-object ent)))) :vlax-true)
  				(vla-put-DisplayLocked vla :vlax-false))
			(command "_.-pan" "_none" (polar (getvar "VIEWCTR") (angle pt1 pt2) (distance pt1 pt2)) "_none" (getvar "VIEWCTR"))
			(if (eq lock :vlax-true) (vla-put-DisplayLocked vla :vlax-true))
			(setq lock nil)
			);foreach
		      );rogn
		    );if
		  );if
	      );progn
	      );if
	  );if
     (if (/= (Getvar "CVPORT") 1) (command "_.PSPACE"))
     );progn
    (princ "\nПерейди в лист")
    );if
  (princ)
  )

[Кондратий Тихонович]

Чота не работает как надо

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

Сообщение от Кондратий Тихонович Чота не работает как надо

Кому "надо"? Для справки - ответ был на стартовый пост.

[Boxa]

Сообщение от Кондратий Тихонович Вот вопрос топикстартера: Цитата: Сообщение от xag Посмотреть сообщение Можно ли на лиспе решить такую задачу? 1) выбрать видовые экраны 2) разблокировка ВЭ 3) задать направление и на какое расстояние требуется выполнить панорамирование. (хотя можно просто по Х) 4) панорамирование на требуемое расстояние 5) блокировка ВЭ Я спрашивал об этом же.

Сообщение от Кондратий Тихонович Чота не работает как надо

Судя по коду, он делает именно то, что написано в ТЗ и в цитате. Вот прям буква в букву делает.
Но спустя 2 страницы выяснилось, что Вам так не надо... т.е. Вы сами не знаете как Вам надо.
Забавно.

[Кондратий Тихонович]

Сообщение от Кулик Алексей aka kpblc Для справки - ответ был на стартовый пост.

Там мне и надо то, что написано в стартовом посте:

Сообщение от Boxa 1) выбрать видовые экраны 2) разблокировка ВЭ 3) задать направление и на какое расстояние требуется выполнить панорамирование. (хотя можно просто по Х) 4) панорамирование на требуемое расстояние 5) блокировка ВЭ

----- добавлено через 44 сек. -----

Сообщение от Boxa Судя по коду, он делает именно то, что написано в ТЗ и в цитате. Вот прям буква в букву делает. Но спустя 2 страницы выяснилось, что Вам так не надо

Вы врёте.

Мне надо В ТОЧНОСТИ как написано

[Boxa]

1) выбрать видовые экраны - строка 7
2) разблокировка ВЭ - строка 19
3) задать направление и на какое расстояние требуется выполнить панорамирование. (хотя можно просто по Х) - строчки 11 и 12
4) панорамирование на требуемое расстояние - строка 21
5) блокировка ВЭ - строка 22

Сообщение от Кондратий Тихонович Вы врёте. Мне надо В ТОЧНОСТИ как написано

ОК, как скажите, Вам виднее, у Вас все таки 30 лет кодерства за плечами.
Что я тут со свиным рылом в калашный ряд...

[maratovich]

Сообщение от Boxa Вас все таки 30 лет кодерства за плечами

У него 30 лет троллинга Он профессионал 80vl в этом деле.