[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
)

[Дима_]

Я вероятно очень консервативный, но чем удобней Ваша программа - нежели обычный _-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.
У кого нибудь была проблема такого рода? как-то лечил это?