[ALFMario]

Как в LISP растянуть объект линия, полилиния, дуга, т.е. переместить конечные точки примитива в точки с заданными координатами. Удалить и нарисовать не предлагать

[gomer]

С помощью entmode

[Дима_]

Если в чистом лиспе - то получить dxf список (entget) исправить координаты (в отрезках и полилиниях - код 10, с дугами посложней - там центр и два угла, соответственно надо продумать подходящий алгоритм по которому изменять) и изменить (entmod). Если через vla - то менять соответствующие свойства.

[ALFMario]

Как получить конечные точки с кодом 10, надо удлинить от центра в обе стороны. Через Vla- какой командой ?

[gomer]

(assoc 10 (entget en))
(assoc 11 (entget en))

[Дима_]

Ты б свой уровень знаний описал - чтобы было понятно что тебе отвечать: вот пример удлиняет только отрезки - посмотри его, почитай справку, на его основе сделай остальное, ну а если что будет не понятно то спроси (только не пиши вобще ничего не понял):

Код:

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

 (defun c:long-otr ()
 ((lambda (ent rasst)
   ((lambda (start end)
     (entmod (subst (cons 10 (polar start (angle end start) rasst))
                    (cons 10 start)
                    (subst (cons 11 (polar end (angle start end) rasst))
                           (cons 11 end)
                           ent))))
    (cdr (assoc 10 ent))
    (cdr (assoc 11 ent))))
  (entget (car (entsel "\nВыберите отрезок ")))
  (getdist "Укажите на сколько удлинить ")))

[gomer]

Сообщение от Дима_ Ты б свой уровень знаний описал

Дима_, ну что вы нубу человеку мозги пудрите, оне ж просили в обе стороны то биш по половинке в каждую

[Кулик Алексей aka kpblc]

Команду _.lengthen используйте

[ALFMario]

Ок спасибо, только у полилиний нет dxf 11. Лиспом увлекаюсь пару лет, основы знаю.
_.lengthen нормально

[Дима_]

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

[ALFMario]

Мне надо для полилиний и для дуг растянуть в обе стороны. С отрезками всё понятно было. Можно ли как нибудь entmod заменить vla- командой

[Дима_]

Сообщение от ALFMario Можно ли как нибудь entmod заменить vla- командой

Можно, только какой в этом смысл - нет vla-команды удлинить, нодо точно так-же изменить координаты соответствующих точек (углов если дуги). В данном примере большой разницы с dxf не будет.

[ALFMario]

так получилось проще для всего
(command "_.lengthen" "_de" dist "_f" "_non" pt1 "_non" pt11 "" "")
(command "_.lengthen" "_de" dist "_f" "_non" pt2 "_non" pt22 "" "")

[Дима_]

Offtop: Уже исправленно