[Homel]

Как в автокаде ограничить конечную точку отрезка? То есть как бы делаешь отрезок, а он не доводится до заданной точки на заданное расстояние? Хелп(

[Krieger]

Когда поведешь до второй точки, напиши расстояние в комстроке, он и отложится от первой точки на заданное расстояние в направлении второй.
Можно еще динамический ввод включить (F12). Тогда в соответствующем окошке пишешь длину и жмешь tab.

[Homel]

Сообщение от Krieger Когда поведешь до второй точки, напиши расстояние в комстроке, он и отложится от первой точки на заданное расстояние в направлении второй. Можно еще динамический ввод включить (F12). Тогда в соответствующем окошке пишешь длину и жмешь tab.

Если я не знаю расстояния Я знаю только какое расстояние на которое хочу не доводить.
ВОт есть например 2 линии параллельных, между ними хочу построить отрезок который не должен эти линии пересекать. То есть с отступом по 20мм с каждой стороны...

Где то видел такую команду... или в ревите или в максе.

[Krieger]

В каде такой нет, но можно написать свою. Вот такую, например:

Код:

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

;|Функция Kr_ElementStretch
Вычерчивает укороченную или удлиненную на величину delta полилинию по двум точкам
Параметры:	layer - слой для будущей pline
		delta - величина увеличения (уменьшения) концов pline
Примеры:	(Kr_ElementStretch "proba" 1)
		(Kr_ElementStretch "0" -2)
		(Kr_ElementStretch (getvar "clayer") -2) - в текущем слое
		^C^C(Kr_ElementStretch "proba" (* (Kr_ScaleOfVP) -1.5))
		
		
|;
(defun Kr_ElementStretch (layer delta)
    (while (progn
	     (princ (strcat "\nDelta=" (rtos delta 2 2)))
	     (initget 128 "Delta _ del")
	     (setq pt1 (getpoint "\nУкажите начальную точку [Delta] <Выход> : ")))
      (if (eq pt1 "del")
	
	(if (setq deltatemp (getreal (strcat "\nУкажите величину delta <" (rtos delta 2 4)  "> : ")))
	  (setq delta deltatemp));end if
	
	   (while (setq  pt2 (getpoint pt1 "\nУкажите следующую точку <Указать начальную точку> : "))
		  (setq  pt3 (Polar pt1 (angle pt2 pt1) delta)
			 pt4 (Polar pt2 (angle pt1 pt2) delta)
			 );end setq
				  (entmake
					(list
						'(0 . "LWPOLYLINE")
						'(100 . "AcDbEntity")
						(cons 8 layer)
						'(100 . "AcDbPolyline")
						'(90 . 2)
						'(70 . 0)
						(cons 10 pt3)
						(cons 10 pt4)
					);end list
				  );end entmake
		    (setq pt1 pt2)
	   );end while
	);end if
     );end while
  );end defun

[Бот]

Homel, просьба изменить название темы "Ограничение длинны отрезка!?" в соответствии с п.4.3. правил форума, в противном случае тема будет закрыта через 12 часов.

Как переименовать тему?

Сообщение сгенерировано автоматически, отвечать на него не нужно

[Orgs]

Shift+ПКМ -> От

[Хмурый]

да не парься. доводи отрезок до точки и используй опцию команды

_lengthen Select an object or [DElta/Percent/Total/DYnamic]: _de Enter delta length or [Angle] <0.0000>: -200

и на 200 миллиметров(единиц чертежа) отрезок укоротится