[mephis]

Нужно получить список точек перелома полилинии от первой до последней. Желательно на Лиспе. Как это делается, или, если несложно, прошу функцию. Заранее спасибо.
На рисунке показана цель.

[Pavel_GP]

Да, если не трудно. спс. (я заметил, что ты часто используешь в своих решениях vla-"приставку")
Как вытащить первую координату вершины я понял (

Код:

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

 (setq xy (car xy_v))
      (setq x (car xy))
      (setq y (cadr xy))

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

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

Примерно так:

Код:

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

 (defun test (/ _kpblc-conv-list-to-2dpoints _kpblc-conv-vla-to-list ent bit coords idx)
  (defun _kpblc-conv-list-to-2dpoints (lst / res)
    (cond
      ((not lst)
       nil
       )
      (t
       (setq res (cons (list (car lst)
                             (if (cadr lst)
                               (cadr lst)
                               0.
                               ) ;_ end of if
                             ) ;_ end of list
                       (_kpblc-conv-list-to-2dpoints (cddr lst))
                       ) ;_ end of cons
             ) ;_ end of setq
       )
      ) ;_ end of cond
    res
    ) ;_ end of defun

  (defun _kpblc-conv-vla-to-list (value / res)
    (cond
      ((listp value)
       (mapcar (function _kpblc-conv-vla-to-list) value)
       )
      ((= (type value) 'variant)
       (_kpblc-conv-vla-to-list (vlax-variant-value value))
       )
      ((= (type value) 'safearray)
       (if (>= (vlax-safearray-get-u-bound value 1) 0)
         (_kpblc-conv-vla-to-list (vlax-safearray->list value))
         ) ;_ end of if
       )
      ((and (= (type value) 'vla-object)
            (vlax-property-available-p value 'count)
            ) ;_ end of and
       (vlax-for sub value
         (setq res (cons sub res))
         ) ;_ end of vlax-for
       ) ;_ end of cond
      (t value)
      ) ;_ end of cond
    ) ;_ end of defun

  (if (and (= (type (setq ent (vl-catch-all-apply
                                (function
                                  (lambda ()
                                    (car (entsel "\nSelect LWPolyline <Cancel> : "))
                                    ) ;_ end of LAMBDA
                                  ) ;_ end of function
                                ) ;_ end of VL-CATCH-ALL-APPLY
                          ) ;_ end of setq
                    ) ;_ end of type
              'ename
              ) ;_ end of =
           (setq ent (vlax-ename->vla-object ent))
           (= (vla-get-objectname ent) "AcDbPolyline")
           ) ;_ end of and
    (progn
      (setq bit 0
            idx 0
            ) ;_ end of setq
      (foreach vertex (_kpblc-conv-list-to-2dpoints (_kpblc-conv-vla-to-list (vla-get-coordinates ent)))
;;; Здесь ты делаешь то, что считаешь нужным
        (setq coords (cons (cond
                             ((= bit 0) (list (+ (car vertex) 10.) (cadr vertex)))
                             ((= bit 1) (list (car vertex) (+ (cadr vertex) 10.)))
                             ((= bit 2) (list (- (car vertex) 10.) (cadr vertex)))
                             ((= bit 3) (list (car vertex) (- (cadr vertex) 10.)))
                             ) ;_ end of cond
                           coords
                           ) ;_ end of cons
              bit    (if (> bit 2)
                       0
                       (1+ bit)
                       ) ;_ end of if
              ) ;_ end of setq
        ) ;_ end of foreach
      (setq coords (apply (function append) (reverse coords)))
;;; И теперь чохом назначаешь все координаты в полилинию
      (vla-put-coordinates ent
                           (vlax-make-variant
                             (vlax-safearray-fill
                               (vlax-make-safearray
                                 vlax-vbdouble
                                 (cons 0 (1- (length coords)))
                                 ) ;_ end of vlax-make-safearray
                               coords
                               ) ;_ end of vlax-safearray-fill
                             ) ;_ end of vlax-make-variant
                           ) ;_ end of vla-put-Coordinates
      (vla-update ent)
      ) ;_ end of progn
    ) ;_ end of if
  ) ;_ end of defun

----- добавлено через 16 сек. -----
Это как пример, учти!

[Pavel_GP]

Спс за труды, вопросики:
Поясни по коду:
1. Где список координат, а именно X и Y?
2. Куда вставить формулу (функция), которая изменяет каждую координату вершины полилинии? Плз примерчик простой (+ -)

Код:

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

 ;;; Здесь ты делаешь то, что считаешь нужным
        (setq coords (cons (cond
                             ((= bit 0) (list (+ (car vertex) 10.) (cadr vertex)))
                             ((= bit 1) (list (car vertex) (+ (cadr vertex) 10.)))
                             ((= bit 2) (list (- (car vertex) 10.) (cadr vertex)))
                             ((= bit 3) (list (car vertex) (- (cadr vertex) 10.)))
                             ) ;_ end of cond
                           coords
                           ) ;_ end of cons
              bit    (if (> bit 2)
                       0
                       (1+ bit)
                       ) ;_ end of if
              ) ;_ end of setq
        ) ;_ end of foreach
      (setq coords (apply (function append) (reverse coords)))

- это пример?
3. Где список в котором будут находиться новые координаты?
4. Где в коде кол-во вершин полилинии?
5. Пояснения добавь плз в код
Сложноват для меня код, вот поэтому много вопросов
Благодарен.

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

Список начальных координат нигде не сохраняется. Он получается динамически:

Код:

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

(_kpblc-conv-list-to-2dpoints ; 3. Список чисел преобразовываем в список координат
 (_kpblc-conv-vla-to-list ; 2. Преобразовываем его в список чисел
  (vla-get-coordinates ent))) ; 1. Получаем variant-массив координат

Сообщение от Pavel_GP Где список в котором будут находиться новые координаты?

Хранится в coords

----- добавлено через ~3 мин. -----
Кстати, может, тогда уж лучше "Обучение лиспу на примере" - и там продолжать?

[Pavel_GP]

Думаю лучше тут, вопрос всё таки про вершины полилинии. В той теме там на простых примерах, а тут vla-семейства, и тут никто не побеспокоит, а с другой стороны посмотреть если можешь перенеси наш диалог в ту тему. спс.
Завтра буду на работе и там разберу.

Пысы перешел в тему "Научите лиспу на примере" http://forum.dwg.ru/showthread.php?t=22894&page=137