[Redya]

Добрый день. Проблема такая: У меня есть точки, значения x и y которых написаны в блокноте в 2 столбика. Необходимо построить график по этим точкам и посчитать под ним площадь. Точек ну очень много, и руками это не сделаешь. Возможно ли с помощью средств AutoCAD расставить эти точки автоматиески и соединить линиями? Т.к. я почти уверен что это невозможно, то может кто-нибудь знает с помощью чего это можно сделать?
*В архиве файлик с координатами.

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

А поискать?

[Redya]

У-у, не получилось

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

http://www.google.ru/custom?hl=ru&in...%3Azeqjjx-kn0v

[Redya]

Спасибо, Алексей. Только теперь тогда такой вопрос. использовал вот этот лисп, но он выдаёт

Команда: POINT2POLYLINE

Имя слоя для полилинии <0>:
; ошибка: неверная DXF-группа: (10 0,000000 0,002035)

Код:

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

(defun C:POINT2POLYLINE ()
(setq curr_layer (getvar "CLAYER"))
(setq layer_name
  (if (= (setq layer_name (getstring T (strcat "\nИмя слоя для полилинии <" curr_layer ">: "))) "")
   curr_layer
   layer_name))
(if
  (progn
   (setq file_name (getfiled "Файл данных" "" "txt" 0))
   (if file_name
    (setq file_desc (open file_name "r"))))
  (progn
   (setq poly_data
    (mapcar 'cons
     (list 0 100 67 410 8 100)
     (list "LWPOLYLINE" "AcDbEntity" 0 "Model" layer_name "AcDbPolyline")))
   (setq point_data ())
   (setq point_count 0)
   (while (setq str (read-line file_desc))
    (setq line (read (strcat "(" str ")")))
    (mapcar 'set (list 'x 'y) line)
    (setq point_data
     (append point_data
      (mapcar 'cons
       (list 10 40 41 42)
       (list (list x y) 0.0 0.0 0.0))))
    (setq point_count (1+ point_count)))
   (setq poly_data
    (append
     poly_data
     (mapcar 'cons
      (list 90 70 43 38 39 210)
      (list point_count 0 0.0 0.0 0.0 '(0 0 1)))
     point_data))
   (entmake poly_data)
   (close file_desc))
  (prompt "\nФайл не найден."))
(prin1)
)

Данные в файле *.TXT в виде:
<значение X><любое кол-во пробелов><значение Y>
типа
123.45 678.90

[Александр Ривилис]

Попробуй в файле заменить запятые на точки.
Или в программе замени:

Код:

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

(setq line (read (strcat "(" str ")")))

на

Код:

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

(setq line (read (strcat "(" (vl-string-translate "," "." str) ")")))

[Redya]

Заработало! Александр, спасибо!