[Serge_}{]

Привет всем.
Хочу написать лисп отрисовки полилинии с неопределенным количеством вершин и далее вычисления центра тяжести и площади. В центре тяжести отрисовываются две перекрещенные линии, а площадь записывается в MTEXT. Пользователь задает полилинию и точку вставку текста.
Есть несколько проблем:
1) куда записать информацию о точках полилинии
2) как отрисовать полилинию по якобы уже известным точкам
3) как вытащить информацию из полилини.
Заранее спасибо.

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

1. Зачем? Она и так существует.
2. Вариантов не меньше 4: командой; через entmake / entmakex; использовать ActiveX; использовать .NET-сборки или arx.
3. Прочитать ее свойства

[Serge_}{]

1) Информации нет. Я её формирую в интерактивном режиме, т.е. необходимо создать лисп, где эта информация создается. Примерно такой:
(SETQ iPoliline 1)
n (GETINT "\nВведите кол-во точек:")
)
(while (< iPoliline n)
(setq pt (GETPOINT "\nВведите точку полилинии:")
iPoliline (+ iPoliline 1)
pl (append pt) ;создаем список
)
) ; while
НО есть существенный недостаток: нужно заранее знать кол-во точек. А если ошибся? Тогда что, все заново?
2) (COMMAND "_pline" pt1 pt2 pt3 "")
(COMMAND "_region" pt1 pt2 pt3 "")
Два метод которые я пока знаю, но они работоют с конкретными точками, а как передать им список pl?
Список предпочтительней, на мой взгляд, т.к. количество элементов не ограниченно.
3) (COMMAND "_massprop" "_c" pt_Bottom_right pt_top_left "" "_y" "square" "")
Могу прочитать свойства и записать их в файл square.mpr, но как отдуда вытащить всю информацию? Читать из файла? Или есть другие варианты?

[Лиспер]

1)

Код:

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

(defun test (/ ent)
  (setq ent (entlast))
  (vl-cmdf "_.pline")
  (while (/= (getvar "cmdactive") 0)
    (vl-cmdf pause)
    ) ;_ end of while
  (if (not (equal (entlast) ent))
    (entlast)
    ) ;_ end of if
  ) ;_ end of defun

2)

Код:

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

(defun entmake-pline (lst)
  ;; lst - список координат точек в текущей системе координат
  ;; (entmake-pline '((0. 0.) (10. 20.) (30. 50.)))
  ;; (entmake-pline '((0. 0.) (10. 20.) (30. 50.) (100. 0.)))
  (entmakex (append (list '(0 . "LWPOLYLINE")
                          '(100 . "AcDbEntity")
                          '(100 . "AcDbPolyline")
                          (cons 90 (length lst))
                          ) ;_ end of list
                    (mapcar '(lambda (x) (cons 10 x)) lst)
                    ) ;_ end of append
            ) ;_ end of entmakex
  ) ;_ end of defun

3) вопрос - какую информацию собираешься вытаскивать?

[VVA]

Сообщение от Serge_}{ Могу прочитать свойства и записать их в файл square.mpr, но как отдуда вытащить всю информацию? Читать из файла? Или есть другие варианты?

DwgRuLispLib: Геометрия. Вычисление центра масс (centroid) LW полилинии