[===AAA===]

Всем привет!

В Модели есть объект /значения реальные/:

((-1 . <Имя объекта: 7ff4abf44ca0>) (0 . "LWPOLYLINE") (330 . <Имя объекта: 7ff4abf069f0>) (5 . "A25B2") (100 . "AcDbEnt
ity") (67 . 0) (410 . "Model") (8 . "СПДС_тонкие") (62 . 5) (6 . "Continuous") (48 . 50.0) (100 . "AcDbPolyline") (90 .
2) (70 . 0) (43 . 0.0) (38 . 29161.5) (39 . 0.0) (10 44849.4 4.85667e+083) (40 . 0.0) (41 . 0.0) (42 . 0.0) (91 . 0) (10
45599.1 4.85667e+083) (40 . 0.0) (41 . 0.0) (42 . 0.0) (91 . 0) (210 0.857493 0.514496 0.0))

Концы этой полилинии зрительно в МСК попадают на точки (примерно):

(1545 54103.1) и (1931 53461.4)

Как получить их Лиспом?

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

DXF Reference - LWPOLYLINE - группа 10.
Фильтруешь по 10 группе и к каждому элементу - cdr

[===AAA===]

Дык если бы... Это когда она плоская и лежит себе спокойно.
А эту-то вон как перекорёжило. А на экране - линия и линия.
Тонкая. Синяя.

Акцентирую - нужно получить точки проекции на плоскость (1 1 0),
т.е. "зрительные".

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

Тогда - 38 группа (насколько я помню) плюс trans из ОСК в МСК

Код:

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

                                            ;|
*    Функция получения координат легкой полилинии (LWPOLYLINE) в WCS. Возвращает
* список 3Д-точек
*    Автор: BOZ (http://www.autocad.ru/cgi-bin/f1/board.cgi?t=26461HC)
*    Оригинальный код:
(defun lwpoly_vert (lwpoly / plinee elev vnv)
  (setq  plinee (entget lwpoly)
  elev   (cdr (assoc 38 plinee))
  vnv    (cdr (assoc 210 plinee))
  ) ;_ end of setq
  (mapcar
    (function (lambda (x) (trans (list (cadr x) (caddr x) elev) vnv 0)))
    (vl-remove-if-not (function (lambda (x) (= (car x) 10))) plinee)
    ) ;_ end of mapcar
  ) ;_ end of defun

[===AAA===]

То, что нужно!

А через (vla-set …) МСК установить можно?

Чтобы вместо

(command-s "_.ucs" "")