[AlexRudz]

Добрый день. Возникла необходимость обрезки выбранных линий на одинаковую длину. Я выбираю отрезки ввожу команду и эти отрезки с двух сторон либо с одной становятся меньше , на например, на 200мм. Возможно ли это сделать стандартными функциями автокад? Спасибо

[getr]

Насчет стандартной функции не знаю... я пользуюсь лиспом linetrim ,автор kpblc...если не ошибаюсь.

[GogMagog]

не знаю как на английском, на русском LT 2008 так:

увеличить;дельта;-200;

либо

увеличить;дельта;-200;линия;

либо

увеличить;дельта;-200;секрамка;

Выбирать линии ближе к обрезаемому концу естесна

[Хмурый]

_lengthen _de -200

PS рамка выбора и предварительный выбор в этой команде не работают

[Krieger]

_Lengthen -> _DElta

[getr]

Команда Lengthen обрежет линию с одной стороны, а топикстартеру нужно с двух одновременно...

[Krieger]

Сообщение от getr Команда Lengthen обрежет линию с одной стороны, а топикстартеру нужно с двух одновременно...

Из штатного больше нет ничего.

Код:

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

(defun Kr_LengthStretch (/ ss index pr l1 lr)
  (princ "\nВыберите отрезки: ")
  (if (setq ss (ssget '((0 . "LINE"))))
    (if (setq delta (getreal "\nУкажите величину укорочения концов отрезков в мм на бумаге <отмена>:"))
	    (progn
	      (setq index -1
		    lr 0
		    delta (* delta (Kr_ScaleOfVP)))
		(repeat (sslength ss)
		  (setq index (1+ index)
			pr (entget (ssname ss index))
			pr (subst (cons 10 (polar (cdr (assoc 10 pr)) (angle (cdr (assoc 10 pr)) (cdr (assoc 11 pr))) delta)) (assoc 10 pr) pr)
			pr (subst (cons 11 (polar (cdr (assoc 11 pr)) (angle (cdr (assoc 11 pr)) (cdr (assoc 10 pr))) delta)) (assoc 11 pr) pr)
			);end setq
		  (entmod pr)
		  );end repeat
		);end progn
      	);if
      );end if
   (princ)
  );end defun

;|---------------------------------------------------------------
Функция 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
    )

[Хмурый]

getr, да мне несложно с двух сторон по линии щёлкнуть.

[AlexRudz]

Прошу прощения , что так долго не отвечал. _lengthen _de -200 то что нужно . Спасибо огромное

[piratos]

Сообщение от getr Насчет стандартной функции не знаю... я пользуюсь лиспом linetrim ,автор kpblc...если не ошибаюсь.

Отличная вещь!
Я так понял, написан он только для обрезки, но если перед вводом значения поставить знак "-", то будет увеличение.