[Gravitsapa]

Необходимо копировать обычные прямые таким образом чтобы они находились на одной прямой через заданное расстояние . Типа "офсет@ , но не в бок ,а вперед или назад копировать. можно конечно включить "объектной отслеживание", но оно не удобно. Постоянно пропадает при зуме и т.д.

Первая картинка - чего есть
Вторая - чего хочу получить.

[Кочетков Андрей]

Разворачиваем ПСК вдоль отрезка и Массивом размножаем отрезок

[Bull]

да проще можно. Скопировать первый, enter. Далее просто второй копируем, беря базовую точку на первом, потом указывая точкой вставки аналогичный каждого след-го

[swell{d}]

обычная пунктирная линия?

[Gravitsapa]

Кочетков Андрей
Как вариант конечно. Но тоже не совсем комфортно постоянно крутить, делать копии , а потом обратно крутить ПСК.
Нету ли какого-то совсем простого способа , типа команды "офсет"
Спасибо за ответ.

[Bull]

типа офсет нет точно, но чем мой метод хуже?

Вот лиспы, возможно, есть уже кем-то сделанные, поищи. Или тут кто напишет

[Gravitsapa]

Bull
Он хорош, и я им не рас пользовался. Но всегда есть "но". Для копирования первого объекта все равно надо пользоваться "объектным отслеживанием". а это не удобно. В реальной работе помимо объектов которые надо скопировать есть еще куча других объектов , и "объектное отслеживание" может неправильно отследить нужное направление. И зумом нельзя пользоваться при построении чего либо с помощью "объектного отслеживания".
Ваш способ так-же непригоден если копируемые объекты перемещаются не на одно и тоже расстояние (всегда через 500 мм) , а на разные расстояния (500мм, потом 800мм, потом 720мм ).

[Bull]

понятно. Но такой команды нет. Только лиспом тогда. Причем этот лисп, скорее всего, будет использовать или мой вариант, или метод Кочетков Андрей,

[asys]

с 2012 версии команда "копировать" имеет возможность копировать массивом. См. диалог команды

[RomaV]

Чего-то вы ребята за работались.
Для той ситуации которая у Gravitsapa на второй картитке вполне подойдёт массив с указанием угула повота вдоль первоначальной линии.

[Bull]

Сообщение от asys с 2012 версии команда "копировать" имеет возможность копировать массивом. См. диалог команды

Массив-то возможен при копировании, но ТС неудобно брать объектную привязку. И не помешало бы, говорит, чтобы на некратные расстояния ещё

вполне подойдёт массив с указанием угула повота

"Угул повота" массива отсутствует. Только прямоугольно. Было ли это в классическом массиве, уже не помню (у меня 2013-й).

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

[Gravitsapa]

Подредактировал вторую картинку в примере , так правильнее.

[gomer]

Как-то так...

Код:

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

 (defun test ()

  (vl-load-com)

  (setq en (car (entsel "\nВыберите отрезок: ")))

  (setq en (vlax-ename->vla-object en))

  (while (setq dist (getreal "\nУкажите расстояние: "))
    (setq en (vla-copy en))
    (vla-move
      en
      (vla-get-startpoint en)
      (vlax-3d-point
	(polar
	  (vlax-safearray->list
	    (vlax-variant-value (vla-get-startpoint en))
	  )
	  (vla-get-angle en)
	  (+ dist (vla-get-length en))
	)
      )
    )
  )
)

[skkkk]

gomer, а если захочется в другую сторону? Может, так?

Код:

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

  (defun test ()

  (vl-load-com)

  (setq en (car (entsel "\nВыберите отрезок: ")))

  (setq en (vlax-ename->vla-object en))
  (setq pt0 (vlax-curve-getPointAtParam en 0.5))
  (setq pt (vlax-curve-getClosestPointTo en (getpoint "\nУкажите точку, определяющую сторону смещения: ")))
  (while (setq dist (getreal "\nУкажите расстояние: "))
    (setq en (vla-copy en))
    (vla-move
      en
      (vlax-3d-point pt0)
      (vlax-3d-point
	(polar
	  pt0
	  (angle pt0 pt)
	  (+ dist (vla-get-length en))
	)
      )
    )
  )
  )

[Profan]

Сообщение от Bull но ТС неудобно брать объектную привязку

При чем тут Total Commander?

[gomer]

Сообщение от skkkk Может, так?

Может так, а может и так:

Код:

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

 (defun c:CopyLine ( / *error* pick en foo ang sign dist)

  (vl-load-com)
  
  (defun *error* (msg) (princ))

  (setq pick (entsel "\nВыберите отрезок: "))

  (setq
    en  (car pick)
    foo (lambda (x) (distance (cadr pick) (cdr (assoc x (entget en)))))
    ang (if (< (foo 10) (foo 11)) pi 0)
  )
  
  (setq en (vlax-ename->vla-object en))

  (while (setq dist (getreal "\nУкажите расстояние: "))
    (setq en (vla-copy en))
    (vla-move
      en
      (vla-get-startpoint en)
      (vla-PolarPoint
        (vla-get-Utility (vla-get-ActiveDocument (vlax-get-acad-object)))
        (vla-get-startpoint en)
        (+ ang (vla-get-angle en))
        (+ dist (vla-get-length en))
      )
    )
  )
  (princ)
)

[skkkk]

Тоже верно: с какой половины отрезок "пикнешь", с такой и построится, да-да!

[Bull]

Сообщение от Profan При чем тут Total Commander?

Чувство юмора имеется, однако. Как будто и не знает, что ТС - это топик-стартер

[Gravitsapa]

gomer
Вот спасибо !!!
Сейчас опробуем.