[YRat]

Смысл и применение

Идем в пространство листа, жмем кнопку или вводим с клавиатуры AF
Программа прыгвет в модель, вы задаете область модели, которую хотите разместить в видовом экране, масштаб и.. и расополагаете разещенный уже на вашем курсоре видовой экран.

Код:

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

;Ansichtsfenster erzeugen.
;(c)2011 iLkraret (ilkraret@gmail.com)

(defun c:af ( / )
	(setvar "cmdecho" 0) ; Turn off command line echoing
	(setq layoutname (getvar "ctab")); Store current tab name

	(if (/= layoutname "Model") ; Must be started from a layout tab to establish destination, quit quietly if on Model tab
		(progn
			(setvar "tilemode" 1) 
			(setq modellunitsmulti 1)
			
			(setq p1 (getpoint "\nУкажите одну из вершин области: "))  
			(setq p2 (getcorner p1 "\nУкажите противоположную вершину области: "))

			(setq units (getvar "insunits")); Store current insunits

			(if (equal units 1) (setq modellunitsmulti 25.4))
			(if (equal units 2) (setq modellunitsmulti 304.8))
			(if (equal units 3) (setq modellunitsmulti 1609344))
			(if (equal units 5) (setq modellunitsmulti 10))
			(if (equal units 6) (setq modellunitsmulti 1000))
			(if (equal units 7) (setq modellunitsmulti 1000000))
			(if (equal units 8) (setq modellunitsmulti 25400000))
			(if (equal units 9) (setq modellunitsmulti 25400))
			(if (equal units 10) (setq modellunitsmulti 914.4))
			(if (equal units 11) (setq modellunitsmulti 0.0000001))
			(if (equal units 12) (setq modellunitsmulti 0.000001))
			(if (equal units 13) (setq modellunitsmulti 0.001))
			(if (equal units 14) (setq modellunitsmulti 100))
			(if (equal units 15) (setq modellunitsmulti 10000))
			(if (equal units 16) (setq modellunitsmulti 100000))
			(if (equal units 17) (setq modellunitsmulti 10000000000000))
			(if (equal units 18) (setq modellunitsmulti 149597806297768))
			(if (equal units 19) (setq modellunitsmulti 9460469428493040000))
			(if (equal units 20) (setq modellunitsmulti 30856959478640800000))

			(setq mass (getreal  "\nMasstab - 1:"))
			(setq vpxd (* (/ (abs (- (car p1) (car p2))) mass) modellunitsmulti)) ; Determine horizontal length of selected window
			(setq vpyd (* (/ (abs (- (cadr p1) (cadr p2))) mass) modellunitsmulti)) ; Determine vertical height of selected window
			(setq vpc (list (/ (+ (car p1) (car p2)) 2.0) (/ (+ (cadr p1) (cadr p2)) 2.0) 0.0)) ; Determine center point of selected model window
			(setvar "ctab" layoutname)
			(command "_mview" "0,0" (strcat "@" (rtos vpxd) "," (rtos vpyd))) ; Create Paper Space viewport
			(setq ssvp (ssget "_L")) ; Start selection set with last viewport frame
			(command "_mspace") ; Open viewport window to Model Space
			(command "_zoom" "_C" vpc (rtos vpyd)) ; Center view of viewport window using determined point
			(command "_zoom" "_SCALE" (strcat (rtos (/ modellunitsmulti mass)) "xp")) ; Set zoom scale of viewport window
			(command "_vports" "_LOCK" "_ON" ssvp "") ; Lock scale and position of model in viewport
			(command "_pspace") ; Close viewport window
 
			(command "._move" ssvp "" "0,0" pause )
		)
		(princ "\nThis command must be started from a layout sheet!") ; Need to start on a layout tab so program knows where to create the new viewports
	) 
(setvar "cmdecho" 1) ; Turn on command line echoing
)

[VVA]

Сообщение от YRat (if (/= layoutname "Model") ; Must be started from a layout tab to establish destination, quit quietly if on Model tab (progn (setvar "ctab" "Modell")

Нет такого листа
Я бы на твоем месте лист/модель проверял по переменной Tilemode 1-модель 0-лист. Изменение значений так же приводит к смене простанства.

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

Одного tilemode мало, надо еще и ctab проверять.

[YRat]

Кулик Алексей aka kpblc, угу, тогда смысла нет проверять тайлмод)
VVA, спасибо за замечание насчет модели)) - у меня лист так и называется MODELL - язык немецкий, счас поменяю для русского.
Жаль нельзя просто по индексу обратиться, как в экселе.

[sasha_lif]

YRat, наверно резиновая рамка будет удобней:
вместо
(setq p2 (getpoint "\nУкажите противоположную вершину области: "))
Заменить на
(setq p2 (getcorner p1"\nУкажите противоположную вершину области: "))

[YRat]

Сообщение от sasha_lif YRat, наверно резиновая рамка будет удобней: вместо (setq p2 (getpoint "\nУкажите противоположную вершину области: ")) Заменить на (setq p2 (getcorner p1"\nУкажите противоположную вершину области: "))

Спасибо, я искал, но не нашел как это сделать)

[angel-fear]

Что-то через раз работает. Иногда вываливает вообще другой кусок модели и не в указанном масштабе

[YRat]

Сообщение от angel-fear Что-то через раз работает. Иногда вываливает вообще другой кусок модели и не в указанном масштабе

Поправил, там ; было пропущено. И немного доработал.

[angel-fear]

масштаб вроде бы подправился, а вот фрагмент модели по-прежнему периодически выбирается не тот

[YRat]

angel-fear, пример в студию

[gomer]

вот это

Сообщение от YRat (setq units (getvar "insunits")); Store current insunits (if (equal units 1) (setq modellunitsmulti 25.4)) (if (equal units 2) (setq modellunitsmulti 304.8)) (if (equal units 3) (setq modellunitsmulti 1609344)) (if (equal units 5) (setq modellunitsmulti 10)) (if (equal units 6) (setq modellunitsmulti 1000)) (if (equal units 7) (setq modellunitsmulti 1000000)) (if (equal units 8) (setq modellunitsmulti 25400000)) (if (equal units 9) (setq modellunitsmulti 25400)) (if (equal units 10) (setq modellunitsmulti 914.4)) (if (equal units 11) (setq modellunitsmulti 0.0000001)) (if (equal units 12) (setq modellunitsmulti 0.000001)) (if (equal units 13) (setq modellunitsmulti 0.001)) (if (equal units 14) (setq modellunitsmulti 100)) (if (equal units 15) (setq modellunitsmulti 10000)) (if (equal units 16) (setq modellunitsmulti 100000)) (if (equal units 17) (setq modellunitsmulti 10000000000000)) (if (equal units 18) (setq modellunitsmulti 149597806297768)) (if (equal units 19) (setq modellunitsmulti 9460469428493040000)) (if (equal units 20) (setq modellunitsmulti 30856959478640800000))

убожество можно заменить на

Код:

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

 (setq
  modellunitsmulti
  (nth
	(getvar "insunits")
	'(1
	  25.4
	  304.8
	  1609344
	  10
	  1000
	  1000000
	  25400000
	  25400
	  914.4
	  0.0000001
	  0.000001
	  0.001
	  100
	  10000
	  100000
	  10000000000000
	  149597806297768
	  9460469428493040000
	  30856959478640800000
	)
  )
)

экономия 300 %

[YRat]

gomer, спасибо конечно за предложение, учту) Ваше убожество в моём убожестве)))

[hwd]

Идем в пространство листа, жмем кнопку или вводим с клавиатуры AF Программа прыгвет в модель, вы задаете область модели, которую хотите разместить в видовом экране, масштаб и.. и расополагаете разещенный уже на вашем курсоре видовой экран.

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

Offtop: п.с. ужас, а ведь ещё и обсуждают это велосипедостроение... варианты кода предлагают.... VVA, Кулик Алексей aka kpblc, gomer - ну вы то как в это втянулись?

[gomer]

Сообщение от YRat учту) Ваше убожество

Еще не мешало бы обнулить cmdecho, чтоб убрать мусор из ком. строки...
К тому же мы не столь педантичны, как немцы, а обработчик прерываний в программе отсутствует

[YRat]

hwd, ну, раз Вы зело умный, расскажите пожалуйста, как правильно употреблять видовые экраны и компоновать чертежи. Я с удовольствием поучусь и буду делать так, как Вы скажете, ежели это действительно окажется дельным.

gomer, не закидывайте меня умными словами, есть предложения - помогите реализовать. Кто э против, станет лучше - прекрасно!
Кстати, "Еще не мешало бы обнулить cmdecho, чтоб убрать мусор из ком. строки..." - это я понял, спасибо, исправил)

Насчет ловли ошибок, я правда не знаю..

Еще, что такое "nth", рассказывайте чтоли.. нечто наподобие старого case я так понимаю?

[gomer]

Сообщение от YRat Еще, что такое "nth", рассказывайте чтоли..

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

Сообщение от YRat я понял, спасибо, исправил)

Ничего вы не поняли cmdecho нужно обнулить непосредственно перед использованием функции command а после ее использования сразу же вернуть обратно, иначе вы не сможете проверить правильность ввода данных в командной строке
примерно так,

Код:

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

 (setvar "ctab" layoutname)
(setvar "cmdecho" 0)
(command "_mview" ...
... (command "._move" ssvp "" "0,0" pause )
(setvar "cmdecho" 1)...

а при более детальном рассмотрении (setvar "cmdecho" 1) вообще может оказаться в теле функции command
насчет обработчика, это

Код:

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

 (if (and (setq p1 (getpoint "\nУкажите одну из вершин области: "))  
		      (setq p2 (getcorner p1 "\nУкажите противоположную вершину области: "))
                             (setq mass (getreal  "\nMasstab - 1:")))(progn ;| далее наши махинации|;))

самый простой вариант... дальше больше: для учета прерывания по Esc нужно определить локально функцию *error* ... Подходов тут два и примеров тьма если пользователь нажал Ctrl+Z, то нужно отменять все наши команды, для этого нужно установить метки отмены... тут тоже подходов два, примеров найти можно
hwd, мелкие проекты я печатаю тупо макромувом и купринтом - это однозначно быстрее, чем переназначать область печати или открывать 6-10 листов один за другим... подшивкой не пользуюсь, ибо нету... к сожалению... да и часто густо приходится перекомпоновывать чертежи, так что хоть именованные, хоть неименованные виды тут для одного места...

[YRat]

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

Спасибо

Сообщение от gomer Ничего вы не поняли cmdecho нужно обнулить непосредственно перед использованием функции command а после ее использования сразу же вернуть обратно, иначе вы не сможете проверить правильность ввода данных в командной строке примерно так,

Вы неправы, все прекрасно работает.

Сообщение от gomer насчет обработчика, это

И снова спасибо.

Я не знаю, зачем надо нажимать нечто, что не предусмотрено программой, но постараюсь сделать) Как в анекдоте про японскую пилу и русских мужиков..

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

А главное, если мне нужно 10-20 деталей на лист посадить, мне нужно 20 раз полный размер до нужных занмеров уменьшать?

[gomer]

Сообщение от YRat Вы неправы, все прекрасно работает.

Э, ну погорячился, время позднее... не проверял... а думал о другом... Если вы нажали esc или enter в ответ на запрос точек или масштаба, то точек и масштаба у вас нет - они равны nil и программа вылетит с ошибкой... с другой стороны cmdecho вы уже обнулили и в единицу оно уже не вернется, так как программа прервана... это важно потому, что есть более скверные переменные, например osmode, которые в обязательном порядке нужно возвращать в исходное состояние, дабы не мучить пользователя. К тому же если ничего не задано и никаких действий не предвидется, то нет смысла обнулять переменную, это два потенциально холостых действия... вот поэтому и стоит перенести (setvar "cmdecho" 0) в ветку условного выбора if. Самый тяжелый случай, когда вычисления тоже могут выдать ошибку... ситуация аналогичная... следовательно спускаем еще ниже нашу переменную и получаем #16. Из всего этого делаем вывод.. программа делится (грубо) на три части:
1. ввод данных пользователем
2. расчеты
3. построения или другие действия

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

[hwd]

Сообщение от YRat hwd, ну, раз Вы зело умный, расскажите пожалуйста, как правильно употреблять видовые экраны и компоновать чертежи. Я с удовольствием поучусь и буду делать так, как Вы скажете, ежели это действительно окажется дельным.

Набираем команду _view, в открывшемся диалоговом окошке "View Manager" давим пальчиком кнопку "New..." - откроется очередной ларец в виде окошка "New View / Short Properties". В нём кликаем по кнопке Help и о чудо: откроется "зело"(с) полезый свиток, именуемый среди непосвящённых не иначе как "справочная система". Причём откроется сразу на нужной страничке - т.е. искать ничего не придётся (вообще сказка)... Не разобраться в том, что там написано - это ещё и постараться нужно... "Поучитесь с удовольствием"(с), почитав указанную мною "тайну великую". Надеюсь, что Вы сочтёте "действительно дельным"(с) родной инструмент от Autodesk, решающий ту задачу, на решение которой Вы потратили столько времени. Кроме того, у "родного" инструмента есть то, чего нет в вашем решении - он позволяет сохранять виды под указанными Вами именами, тем самым давая возможность их многократного использования.

Хотя, конечно же, можно и со своим велосипедом остаться, допиливая его до кондиции - что же, зря Вы столько времени потратили? Хотя окромя себя в этом винить, по совести, и некого...

п.с. Это не я злой, это нужно прежде чем садиться писать код, убедиться, что в ПО действительно отсутствует искомый функционал. А то ведь это заразно - юзеры подхватят и начнут себе устанавливать, не подозревая, что всё это уже и так имеется (причём в более лучшем исполнении). Вот такие пряники...

[YRat]

hwd, спасибо, вероятно, так и было задумано Автодеском, но
1. это долго
2. хотя и приносит свои позитивные фичи, мне они не нужны.. нет двух одинаковых окон, которые я располагаю на листах
3. Сидеть и выдумывать названия, в которых сам потом запутаешься, когда на лист захочешь расположить.

Пример: подпорная стенка с анкеровкой, 12 листов с детялями и обзорами. Я не считал, но примерно могу сказать, то там порядка 50-60 видов надо создавать. Я с ума сойду работая так)

Посему клиент спросил, а нет ли возможности из листа нажать кнопочку и быстренько сделать участок модели в моем масштабе...

Так что большое спасибо, и правду полезный свиток, но он не подхлжит под поставленные задачи.

gomer, согласный я, буду думать)

[Дима_]

Я вероятно очень консервативный, но чем удобней Ваша программа - нежели обычный _-vports - Вы же все равно на листе видовой экран компонуете, какой смысл выбирать вначале что Вам надо в модели, ставить масштаб и пр - Вы же заранее не можете знать влезет или нет (на лист) - ИХМО вначале (как и сделанно в автокаде) логичнее задать размеры (расположение) видового экрана - а потом уж масштабируй как хочешь, хоть рамкой, хоть по объектам, хоть по точному значению.
з.ы. То что код написан убого не очень - это не страшно, все так начинают (посмотрите ранние коды любого нынешнего "спеца"), просто мне не очень понятно назначение программы.

[hwd]

2 Дима_
+1

[YRat]

Дима_, подход у нас разный) Я знаю, что мои узлы все должны быть 1:25 - мне не надо масштабировать, мне нужно участок модели в масштабе 1:25 на лист) И так 50 раз.

Хотите пользовать стандартный путь, пожалуйста, мне жалко времени на каждый ВЭ масштабировать, подрезать, отдельно позицию задавать

hwd, ишь, плюсомёт тут завелся)))

[hwd]

Сообщение от YRat 1. это долго

не так уж и долго.

Сообщение от YRat 2. хотя и приносит свои позитивные фичи, мне они не нужны.. нет двух одинаковых окон, которые я располагаю на листах

позитивных фич ты не понял. На основе именованных видов формируются видовые экраны в листах обычным драг-дропом (перетаскиванием мышью) этих именованных видов на лист. Т.о. можно за несколько секунд собрать любой лист. Если что-то не понравится - можно всё заново быстро пересобрать за пару секунд, а в твоём случае придётся повторно указывать границы видов. Сразу видно, что с подшивками ты не работал...

Сообщение от YRat 3. Сидеть и выдумывать названия, в которых сам потом запутаешься, когда на лист захочешь расположить.

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

Сообщение от YRat Пример: подпорная стенка с анкеровкой, 12 листов с детялями и обзорами. Я не считал, но примерно могу сказать, то там порядка 50-60 видов надо создавать. Я с ума сойду работая так)

Ты скорее с ума сойдёшь работая именно так, как ты работаешь.

Сообщение от YRat Посему клиент спросил, а нет ли возможности из листа нажать кнопочку и быстренько сделать участок модели в моем масштабе...

Клиенту нужно показать то, что я показал тебе выше, касательно создания именованных видов. А ещё нужно показать как правильно ими пользоваться, т.к. я на 100% уверен, что ты этого так и не понял, иначе бы не говорил, что инструмент не удобен.

Сообщение от YRat Так что большое спасибо, и правду полезный свиток, но он не подхлжит под поставленные задачи.

Ну, дело твоё

[YRat]

Сообщение от hwd Сразу видно, что с подшивками ты не работал...

Нет, подшивки тут только у некоторых архитекторов распространены

За идею в любом случае спасибо, я над этим подумаю, наверное, вы правы, это стоит показать.

[angel-fear]

hwd, а можно поподробнее. Что-то из справки ничего не понял.
Как сохранять, как и куда чего перетаскивать?

[hwd]

Сообщение от angel-fear hwd, а можно поподробнее. Что-то из справки ничего не понял. Как сохранять, как и куда чего перетаскивать?

А я почему-то понял... Задаёшь прямоугольную область, интересную тебе и назначаешь ей имя. Какая сложность в этом? Перетаскивание - это при работе с подшивками. Там ты формируешь на листах виды, банальным перетаскиванием именованных видов из различных чертежей, находящихся в указанных тобою каталогов-источников. Т.о. как из мазайки собираешь листы. Поищи видео по подшивкам у Паши Севкава.

[YRat]

hwd, то есть хваленый метод работает лишь тогда, когда человек с подшивками работает. Что-то как-то не очень-то универсально. А жаль.

[angel-fear]

Я правильно понимаю, что изначально надо ввести команду -ВЭКРАН в пространсте модели или нет?

[hwd]

Сообщение от YRat hwd, то есть хваленый метод работает лишь тогда, когда человек с подшивками работает. Что-то как-то не очень-то универсально. А жаль.

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

[serdgius]

Сообщение от YRat hwd, спасибо, вероятно, так и было задумано Автодеском, но 1. это долго 2. хотя и приносит свои позитивные фичи, мне они не нужны.. нет двух одинаковых окон, которые я располагаю на листах 3. Сидеть и выдумывать названия, в которых сам потом запутаешься, когда на лист захочешь расположить. Пример: подпорная стенка с анкеровкой, 12 листов с детялями и обзорами. Я не считал, но примерно могу сказать, то там порядка 50-60 видов надо создавать. Я с ума сойду работая так) Посему клиент спросил, а нет ли возможности из листа нажать кнопочку и быстренько сделать участок модели в моем масштабе... Так что большое спасибо, и правду полезный свиток, но он не подхлжит под поставленные задачи. gomer, согласный я, буду думать)

Полностью согласен. Сам работал с именованными видами и запарок там на самом деле больше чем полезностей ко всему прочему, обратил внимание на то что их применение подгружает сам AutoCAD.

[pitonch]

добрый день, у меня такой вопрос, а можно ли в лиспе добавить многоугольную рамку видового экрана (подрезанная)?
ps/ лисп очень удобен, если быстро и много надо нарезать видовых из модели, а еще и в разном масштабе.
только иногда работает некорректно, не тот масштаб и не то что выделял вписывает в видовой экран(

[nik_mb]

Уж 21-й век на дворе, а количество чайников и ламеров (см. http://lurkmore.to/Ламер) не меняется. Видовые экраны используют небольшой процент работающих в Автокаде. Как-то непонятно для большинства, казалось бы простое, метод создания видовых экранов. YRat сделал сделал шаг, чтобы упростить процесс. Я попробую внести усовершенствования в его програму. Моя версия может быть проста, т.к. не предлагает выбор пользователю в некоторых случаях. Вот:

Код:

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

 ;; быстрое создание ВЭ
(defun c:бсвэ ( / vpxd vpyd vpc p1 p2 pve masv s_layer lay_su)
(setvar "cmdecho" 0) ; 
(vl-load-com)
(setq ActiveDocument (vla-get-activedocument (vlax-get-acad-object)))
(vlax-invoke-method ActiveDocument "StartUndoMark")
(setq old_lay (getvar "clayer"))
	(if (not (tblsearch "layer" "В_Экран"));; если нет такого то создать
	(progn
	; Создание слоя
	(setq s_layer (vla-get-layers  ActiveDocument))
	(setq lay_cr (vlax-invoke-method s_layer "add" "В_Экран"))
	(vla-put-Color lay_cr  8)
	(vla-put-Plottable lay_cr :vlax-false);; не печатать
	))
(setvar "clayer" "В_Экран");; установка слоя текущим
	(setq s_layer (vla-get-layers  ActiveDocument))
	(setq lay_su (vlax-invoke-method s_layer "Item" "В_Экран"))
		(if (or (= :vlax-true (vla-get-freeze lay_su));; если что-то не так со слоем
		(= :vlax-true (vla-get-Lock lay_su))
		(= :vlax-false (vla-get-LayerOn lay_su)) )
		(progn
			(vla-put-freeze lay_su :vlax-false);; разморозить
			(vla-put-Lock lay_su :vlax-false)  ;; разблокировать 
			(vla-put-LayerOn lay_su :vlax-true);; включить
			(vlax-invoke-method ActiveDocument "regen" acActiveViewport)
		))

(setq layoutname (getvar "ctab")); 
(if (not massh)(setq massh 1.0))
(if (/= layoutname "Model") 
	(progn
	(setq pve (getpoint "\nУкажите нижний левый угол размещения видового экрана"))
	(setvar "tilemode" 1) 
	(setq p1 (getpoint "\nУкажите первую точку отображения области в Видовом Экране: "))  
	(setq p2 (getcorner p1 "\nУкажите противоположную точку отображения области в Видовом Экране: "))
	(setq  modellunitsmulti (nth
	(getvar "insunits")'(1 25.4 304.8 1609344 1 10 1000 1000000 25400000 25400 914.4 0.0000001 0.000001 0.001 100 10000)))
			(setq masv (getreal  (strcat "\nМасштаб ВЭ - 1:" (rtos massh) "? или 1:")))
			(if masv (setq massh masv))
			(setq vpxd (* (/ (abs (- (car p1) (car p2))) massh) modellunitsmulti)) ; 
			(setq vpyd (* (/ (abs (- (cadr p1) (cadr p2))) massh) modellunitsmulti)) ; 
			(setq vpc (list (/ (+ (car p1) (car p2)) 2.0) (/ (+ (cadr p1) (cadr p2)) 2.0) 0.0)) ; 
			(setvar "ctab" layoutname)
			(VL-CMDF "_mview" pve (strcat "@" (rtos vpxd) "," (rtos vpyd))) ; Создание видового экрана 
			(setq ssvp (ssget "_L")) ; выбор созданного ВЭ
			(VL-CMDF "_mspace") ; Вход в Model Space на ВЭ
			(VL-CMDF "_zoom" "_C" vpc (rtos vpyd)) ; Зуммируем по центру
			(VL-CMDF "_zoom" "_SCALE" (strcat (rtos (/ modellunitsmulti massh)) "xp")) ; Установка масштаба
			(VL-CMDF "_vports" "_LOCK" "_ON" ssvp "") ; блокируем ВЭ
			(VL-CMDF "_pspace") ; Выход в ПМ
 		;;	(VL-CMDF "._move" ssvp "" pve pause ) ;; Перемещаем ВЭ на нужную позицию
		)
		(princ "\nЭта команда может быть запущена только в пространстве листа!  ") ; 
	)
(princ)
(setvar "clayer" old_lay)
(vlax-invoke-method ActiveDocument "EndUndoMark")
(setvar "cmdecho" 1) ; 
)

Заодно перевел некоторые англицкие выражения на родной язык.

[hwd]

Сообщение от nik_mb Уж 21-й век на дворе, а количество чайников и ламеров (см. http://lurkmore.to/Ламер) не меняется.

Давая ссылки на подобного рода "ресурсы", тем самым довольно отчётливо даёшь понять, что ты сам из себя представляешь, "не чайник"... Поскольку подобного рода "ресурсы" популярны лишь среди "людей соответствующего состояния души", испытывающих непонятное удовольствия от чтения подобного контента.

[nik_mb]

Сообщение от hwd Давая ссылки на подобного рода "ресурсы", тем самым довольно отчётливо даёшь понять, что ты сам из себя представляешь, "не чайник"... Поскольку подобного рода "ресурсы" популярны лишь среди "людей соответствующего состояния души", испытывающих непонятное удовольствия от чтения подобного контента.

Не понял о чем это Вы. Я - лишь то, что "чайник" лишь начинающий пользователь. А выйдет ли из него "ламер" - мало знающий, но не желающий узнать больше того, чему его (ее) учили в ВУЗе или нет - вопрос не простой.
Вы, года два назад доказывали, что незачем писать такого рода програмки - "врукопашную" можно сделать довольно быстро. Но большинству пользователей это так не кажется. Работающих с видовыми экранами единицы. Беда в том, что руководители и "старшие товарищи", а так же преподаватели ВУЗов, из "старой гвардии" - привыкших работать с бумагой. От того и ужасы построений в проекте - вычерчивается в масштабе 1:50 или 1:100 (т.е. 1мм пространства модели соответствует 100мм проектируемой конструкции), одни настаивают на миниуме слоев, другие делают их множество с экзотическими названиями, при этом в каждом слое может быть вычерчены разнообразные типы объектов. Рамок в модели, разных форматов - туча. Спрашиваешь: "Почему так делаете?" Ответ: "Нас так научили".
Обучить правильно (это как в книгах пишут, согласно идеологиии програмного продукта) таких получается слабо. Так, что пока вот такие програмки, чтобы по чуть-чуть перетягивать еще "чайника" на сторону грамотного, удобного проектирования.

[hwd]

@nik_mb
Может Вы и правы...
Однако и в предлагаемом Вами варианте есть свои минусы (на мой взгляд): если пользователю случится где-то сесть работать с AutoCAD на чужой машине (например где-то на переферии, в строительном вагончике за ноутбуком прораба), не имеющей соответствующих дополнительных программок, то работать ему будет сложно, если он, в качестве альтернативы, не знает "родного" способа решения подобных задач. Поэтому, хотя бы в качестве запасного варианта, знать "родное" решение от Autodesk - это своего рода "страховка" от подобных случаев.

[RNB]

Спасибо. Своё предназначение выполняет на 100%.

[San-_-13]

Здравствуйте, очень заинтересовал ваш lisp, попробовал его применить, но есть одна проблема, видовой экран создается в каком-то рендомном масштабе, в чем может быть проблема?

[maratovich]

Сообщение от San-_-13 видовой экран создается в каком-то рендомном масштабе, в чем может быть проблема?

Вопрос не особо понятен.
Опишите подробнее проблему и если возможно приложите файл.

[San-_-13]

А суть моей проблемы по поводу Lispa заключается в следующем...я ввожу команду "AF" из пространства листа, меня автоматически перебрасывает в пространство модели, где мне нужно обвести нужную мне область рамкой и указать нужный мне масштаб ( в котором будем размещена моя деталь например). Например, я обвожу рамкой какую-то область и вписываю масштаб 1:20, в пространстве листа создается видовой экран но в каком-то непонятном масштабе, далеко не в 1:20.
У кого нибудь была проблема такого рода? как-то лечил это?

[RNB]

Сообщение от San-_-13 А суть моей проблемы по поводу Lispa заключается в следующем...я ввожу команду "AF" из пространства листа, меня автоматически перебрасывает в пространство модели, где мне нужно обвести нужную мне область рамкой и указать нужный мне масштаб ( в котором будем размещена моя деталь например). Например, я обвожу рамкой какую-то область и вписываю масштаб 1:20, в пространстве листа создается видовой экран но в каком-то непонятном масштабе, далеко не в 1:20. У кого нибудь была проблема такого рода? как-то лечил это?

Вводить нужно не 1:20, а 20

[San-_-13]

Сообщение от RNB Вводить нужно не 1:20, а 20

Ну это понятно, я так и делаю (видимо не корректно написал в предыдущем посте). Видовой экран создается либо в масштабе 1:1 или вообще в произвольном(((

[RNB]

Сообщение от San-_-13 Ну это понятно, я так и делаю (видимо не корректно написал в предыдущем посте). Видовой экран создается либо в масштабе 1:1 или вообще в произвольном(((

У меня команда вела себя некорректно однажды. Не знаю, как это влияло на программу, но очень сильно отдалена была область печати на листе. Когда приблизил область печати, всё встало на свои места.
Как вариант, попробуйте область печати настроить и приблизить (танцы с бубном какие-то, но может быть поможет...)

[maratovich]

Сообщение от San-_-13 Ну это понятно, я так и делаю (видимо не корректно написал в предыдущем посте). Видовой экран создается либо в масштабе 1:1 или вообще в произвольном(((

Подтверждаю - глюк присутствует.
Почему не знаю, в лиспе не шарю, но у меня лечится так (в одной вкладке выполнять подряд):
1. Пробую вставить с масштабом 20 - фигня
2. Пробую вставить с масштабом 1 - норма
3. Это и последующие вставить с масштабом 20 - норма.

----- добавлено через ~2 мин. -----
San-_-13 сервис пак установлен ?

[San-_-13]

Сообщение от maratovich Подтверждаю - глюк присутствует. Почему не знаю, в лиспе не шарю, но у меня лечится так (в одной вкладке выполнять подряд): 1. Пробую вставить с масштабом 20 - фигня 2. Пробую вставить с масштабом 1 - норма 3. Это и последующие вставить с масштабом 20 - норма. ----- добавлено через ~2 мин. ----- San-_-13 сервис пак установлен ?

Сервис пак установлен первый, хотя не совсем понимаю связь. Попробовал ваш метод, к сожалению он не работает( в масштабе 1:1 вставляется нормально все, но если указывать какой-то другой масштаб происходит то, что я описал выши. Да и вообще я думаю, что если человек выкладывает это как "готовый" продукт, то и это должно работать, так как написано в "пособию по применению". Жаль, что решение проблемы видимо тут не будет(.

[Лада Калина Универсал]

А у меня программа делает ошибку:

Команда: af Восстановление кэшированных видовых экранов.

Укажите одну из вершин области:
Укажите противоположную вершину области:
Masstab - 1:
; ошибка: неверный тип аргумента: numberp: nil

[Boxa]

Когда то писал для себя такое. Теперь приходится поддерживать и развивать по замечаниям трудящихся.
Если интересно, то скачать можно тут :http://experement.spb.ru/wiki/doku.php?id=vport_pp
Видео тут: http://youtu.be/JRU4YrkzDPc

[maratovich]

Boxa, спасибо, интересный вариант, добавил в общий список
Думаю против не будешь

[Boxa]

Сообщение от maratovich Boxa, спасибо, интересный вариант, добавил в общий список Думаю против не будешь

не буду. =) Потому и дал ссылку.

[San-_-13]

Сообщение от Boxa Когда то писал для себя такое. Теперь приходится поддерживать и развивать по замечаниям трудящихся. Если интересно, то скачать можно тут :http://experement.spb.ru/wiki/doku.php?id=vport_pp Видео тут: http://youtu.be/JRU4YrkzDPc

Спасибо большое, это куда интереснее..но, есть несколько вопросов и пожеланий.
1. Можно ли сделать, что-бы при создания видового экрана он сразу блокировался??
2. И может быть офтопный вопрос, но не подскажете, как добавить .dll фаил в автозагрузку(аналог автозагрузки .lisp)?
Спасибо.

[Boxa]

1. Можно, а вот нужно ли?
2. Вот тут расписывал: http://experement.spb.ru/wiki/doku.php?id=setup_acaddll
Не за что.

[shartal]

Для nik_mb. Задается только стандартный масштаб видового экрана. Масштаб аннотаций остается неизменным. Можно это исправить, иначе при использовании аннотац. объектов вся процедура теряет смысл.

[tujn08]

Кто мне поможет с созданием многоугольных видовых экранов?
_-vports - какое обращение к функции?

[Сергей812]

Сообщение от tujn08 _-vports - какое обращение к функции?

ну, как минимум, с точкой:

_.-VPORTS

ключи - "_P" - многоугольный, в конце построения закрыть - "_C".

[tujn08]

Код:

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

 (command "_-vports" "_p" point point2 point3 point4 point5 "_C")

Спасибо! вот искал ключ "_C"

[Сергей812]

А чего его искать, с вероятностью 90% - "Close")

[olga87]

Спасибо за лисп "бсвэ" (http://forum.dwg.ru/showpost.php?p=1091820&postcount=33).
Попробовав в Автокаде 2007 заметила следующее: если мне нужен масштаб ВЭ = 2, то на запрос Масштаба задаю 0.5, в результате все работает, если в окне "Единицы чертежа" в зоне "Масштаб вставки" выставлено "миллиметры", если "метры"- то масштаб ВЭ в результате получается равным 2000. Вопрос: как это исправить в коде?
В Автокаде 2008 ввожу, например, масштаб 50, то в итоге для ВЭ в его свойствах получается: Масштаб аннотаций 1:50, Пользовательский масштаб каждый раз разный (0.0014 или 0.0019,...).

[alex-kolchugin]

(command "_zoom" "_SCALE" (strcat (rtos (/ modellunitsmulti mass)) "xp")
Что такое "xp"? загружаю эту строку, возвращает 0.0xp и ругань... В комстроке пишет значение должно быть положительным и не нулевым... Масштаб ранее задал 1:50. Я так понимаю это масштабный коэффициент...
Сделал так (command "_zoom" "_SCALE" (rtos (/ modellunitsmulti mass) 2 2)), загружаю вернул значение 0.02... Вроде всё нормально, ибо 1/50=0.02
Запускаю весь лисп, набираю "af", всё рисует красиво, НО... масштаб видового экрана 0.013 и что-то там ещё какие-то цифры дальше...
AutoCAD 2017