[Юрий_Нд]

Как плавно изменить масштаб в режиме модель, чтобы получить размер на экране 1:1?
Желательно, чтобы после такой настройки, с помощью колесика мыши
можно было легко попасть в масштаб 1:1.

[Хмурый]

интересует версия AutoCAD'а и операционной системы
для начала

[Boxa]

А так же марку, модель монитора и его настройки...
Хотите линейкой по монитору измерять? =о)

[Юрий_Нд]

Сообщение от Хмурый интересует версия AutoCAD'а и операционной системы

Автокад 2016 и Виндовс 7

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

Сообщение от Boxa марку, модель монитора и его настройки...

Делл 24 дюйма, широкоформатный (Фул ЭйчДи).
Где смотреть остальное - не знаю.

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

Сообщение от Boxa Хотите линейкой по монитору измерять?

Хочу видеть натуральный размер изделия.

[igr]

Зачем плавно менять мастаб модели?

[Denbad]

Масштабировать не колесиком, а командами pan/zoom приложив линеечку к монитору.

[Boxa]

Сообщение от Юрий_Нд Желательно, чтобы после такой настройки, с помощью колесика мыши можно было легко попасть в масштаб 1:1.

ZOOMFACTOR (Cистемная переменная) у меня в 2014 эта переменная есть...

Сообщение от Юрий_Нд Хочу видеть натуральный размер изделия.

Поиском пользовались? Я вот попробовал, вот что получилось http://forum.dwg.ru/showthread.php?t=114509
Я могу ошибаться, но думаю что штатного способа сделать такое нет, впрочем слова ShaggyDoc, из указанной выше темы, подтверждают мои думы...
Однако если ОЧЕНЬ хочется, то добро пожаловать в раздел Программирование, а если программирование не Ваш конек, то в раздел Поиск исполнителей.

[Bull]

Сообщение от Юрий_Нд Как плавно изменить масштаб в режиме модель,

Вид - зумирование - в реальном времени, приложив линейку к экрану.

Сообщение от Юрий_Нд чтобы после такой настройки, с помощью колесика мыши можно было легко попасть в масштаб 1:1.

Невозможно. Колесо вперед-назад имеет разные коэффициенты зумирования.

PS По архаичности самой надобности высказываться не буду. Тут будет сплошной троллинг

[Владимир.]

Сообщение от Юрий_Нд Хочу видеть натуральный размер изделия.

Распечатать на бумаге

[skif58]

Сообщение от Bull Невозможно. Колесо вперед-назад имеет разные коэффициенты зумирования.

Зумирование в реальном времени можно и нужно делать не колесом, а движением мыши с зажатой ЛКМ.
Юрий_Нд, если начертить прямоугольник с размерами равными рабочей области чертежа (измеренной линейкой) и внутри него рисовать изделие, то щелкая по этому прямоугольнику в команде "Замирования по Объекту" размеры изделия будут возвращаться в "натуральную величину".
Или установить Лимиты чертежа по размерам экрана, а потом делать _zoom_all / показать все

[frostmourn]

Сообщение от Юрий_Нд Желательно, чтобы после такой настройки, с помощью колесика мыши можно было легко попасть в масштаб 1:1.

Не представляю, как это должно выглядеть.

Сообщение от Юрий_Нд получить размер на экране 1:1?

А это ради интереса попробовал. За полную работоспособность не поручусь

Код:

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

 
(defun C:ShowMeTheBeauty ( / SCRdia SCRres _dwgru-str->list _get-viewctr-size Kr_ScaleOfVP _GetDiag)
(defun _dwgru-str->list (s)
		 ;|
	***************************************************************************************
	*
	* Программа разделяет строку на список текстовых и цифровых составляющих.
	* Запятая между цифрами, зменяется на точечный разделитель дробной части.
	* 
	**************************************************************************************
	*
	* Написал Елпанов Евгений       (ElpanovEvgeniy)
	*
	* дата создания (13/10/2007 a 11:42)
	* написано во время конкурса на форуме:
	* http://www.cadxp.com/XForum+viewthread-fid-101-tid-16943-page-2.html
	***************************************************************************************
	* Пример использования и результатов работы:
	* (_dwgru-str->list "point.25.4cm.")           => ("point." 25.4 "cm.")
	* (_dwgru-str->list "point.25,4cm.")           => ("point." 25.4 "cm.")
	* (_dwgru-str->list "point.3/8cm.")            => ("point." 0.375 "cm.")
	* (_dwgru-str->list "qvf12qsdf125 5sf 56dfv2") => ("qvf" 12 "qsdf" 125 " " 5 "sf " 56 "dfv" 2)
	***************************************************************************************
	 |;
	 (defun str->list1 (a b f)
	  (cond
	   ((null b)
		(list (if f
			   (cond ((vl-position 46 a) (atof (vl-list->string (reverse a))))
					 ((vl-position 47 a) (distof (vl-list->string (reverse a))))
					 ((vl-position 44 a) (atof (vl-list->string (subst 46 44 (reverse a)))))
					 (t (atoi (vl-list->string (reverse a))))
			   ) ;_ cond
			   (vl-list->string (reverse a))
			  ) ;_ if
		) ;_ list
	   )
	   (f
		(if (or (= (car b) 44) (< 45 (car b) 58))
		 (str->list1 (cons (car b) a) (cdr b) f)
		 (cons (cond ((vl-position 46 a) (atof (vl-list->string (reverse a))))
					 ((vl-position 47 a) (distof (vl-list->string (reverse a))))
					 ((vl-position 44 a) (atof (vl-list->string (subst 46 44 (reverse a)))))
					 (t (atoi (vl-list->string (reverse a))))
			   ) ;_ cond
			   (str->list1 (list (car b)) (cdr b) nil)
		 ) ;_ cons
		) ;_ if
	   )
	   (t
		(if (< 47 (car b) 58)
		 (cons (vl-list->string (reverse a)) (str->list1 (list (car b)) (cdr b) t))
		 (str->list1 (cons (car b) a) (cdr b) nil)
		) ;_ if
	   )
	  ) ;_ cond
	 ) ;_ defun
	 (setq s (vl-string->list s))
	 (str->list1 (list (car s))
				 (cdr s)
				 (if (or (= (car s) 44) (< 45 (car s) 58))
				  t
				 ) ;_ if
	 )
	)


(defun _get-viewctr-size ( / VCTR Y_Len SSZ X_Pix Y_Pix X_Len)
		;список точек границ видимой области
	  (setq VCTR (getvar "VIEWCTR") Y_Len (getvar "VIEWSIZE")
	   SSZ (getvar "SCREENSIZE")
	   X_Pix (car SSZ) Y_Pix (cadr SSZ)
	   X_Len (* (/ X_Pix Y_Pix) Y_Len)
			)
	   (list(mapcar '- VCTR (list (* 0.5 X_len)(* 0.5 Y_len)))
			(mapcar '+ VCTR (list (* 0.5 X_len)(* 0.5 Y_len)))
			)
	)

	;|---------------------------------------------------------------
	Функция Kr_ScaleOfVP
	-----------------------------------------------------------------
	Вычисляет масштаб в зависимоти от переменной dimscale или CANNOSCALEVALUE, если dimscale=0 коэф-т = 1 или относительно vport
	|;
(defun Kr_ScaleOfVP ( / )
	  ;если текущим установлен аннотативный размерный стиль, масштаб берем с аннотативного масштаба
	  (if (= (getvar "dimanno") 1)
		(setq dsc (/ 1 (getvar "CANNOSCALEVALUE")))
		(progn
	  ;если dimscale=0 принимаем dsc=1, если нет dsc=dimscale
				(if (= (getvar "dimscale") 0) (setq dsc 1) (setq dsc (getvar "dimscale")))
	  ;если мы находимся в пространстве листа:
				(if (= (Getvar "TILEMODE") 0)
	  ;если видовое окно не ативно dsc=1, если активно, то берем масштаб с видового экрана
				  (if (= (Getvar "CVPORT") 1)
					(setq dsc 1)
					(setq dsc (/ 1 (vla-get-CustomScale (vla-get-ActivePViewport (vla-get-ActiveDocument (vlax-get-Acad-Object))))))
				  );if
				 );if
		  );progn
		);if
		dsc
	)

(defun _GetDiag (lst) (sqrt (apply '+ (mapcar 'expt lst '(2 2)))))

	(setq SCRdia (getreal "\nScreen diagonal, inches: ")
		SCRres (getstring "\nScreen resolution, AxB: ")
	)
	(vla-zoomscaled
		(vlax-get-acad-object)
		(*
			(/ (_GetDiag (apply 'mapcar (cons '- (reverse (_get-viewctr-size))))) (_GetDiag (getvar "SCREENSIZE")) (* SCRdia 25.4) (Kr_ScaleOfVP))
			(_GetDiag (vl-remove-if-not 'numberp (_dwgru-str->list SCRres)))
		)
		acZoomScaledRelative
	)
)

[Bull]

del