[Railnolds]

Здравствуйте!

Может кто подскажет, как нарисовать 2D кривую, если у меня есть координаты точек? Просто точек этих много, да и кривых тоже немало надо нарисовать. Как можно это быстро сделать, чтобы не вводить каждую точку отдельно, а импортировать координаты из файла (например Эксель или текстового)?

Спасибо.

[OxYGeN]

сплайн

введи все точки и соедини сплайном...будет кривая
насчет введения точек незнаю... в графическом варианте есть точки? можно импорт попробовать сделать.

[Railnolds]

Сообщение от OxYGeN сплайн введи все точки и соедини сплайном...будет кривая насчет введения точек незнаю... в графическом варианте есть точки? можно импорт попробовать сделать.

Я так и предполагал сделать - ввести все точки. Но их много, вручную вводить очень долго. Зато они есть уже в числах - импортированы из другой программы (можно в текстовый или Эксель файлы импортировать).
Я думал можно как-то автоматом эти координаты задать Сплайну и он вычертит мне этот сплайн по координатам.

[Дима_]

Формат файла с координатами точек нужен

[Railnolds]

Формат файла- txt.

Вот так примерно он выглядит

0,00000 0,10349 200,00 584,52 1,0000 2,4077 1,0000 0,10746 202,31 585,94 1,0084 2,4078 2,0000 0,11155 204,62 587,36 1,0168 2,4078 3,0000 0,11575 206,93 588,78 1,0252 2,4079 4,0000 0,12008 209,25 590,20 1,0335 2,4081 5,0000 0,12454 211,58 591,63 1,0419 2,4082 6,0000 0,12912 213,91 593,05 1,0502 2,4084 7,0000 0,13383 216,25 594,47 1,0585 2,4086

Сейчас тут несколько колонок, но можно сделать, чтобы было только 2, те которые нужны для построения.

[Дима_]

А что в колонках то? Подпиши пожалуйста

[Railnolds]

1 - температура
2 - давление
3 - энтальпия жидкости
4 - энтальпия пара
5 - энтропия жидкости
6 - энтропия пара

Вообще-то нужно нарисовать различные кривые насыщения холодильных агентов. Используя различное соотношение этих параметров можно нарисовать любую кривую. Для удобства можно оставлять только две колонки - это не проблема.

[ытя]

DSTP_PNTIMPRT (ToolPac -> Utility -> Point Import)

[Railnolds]

Сообщение от ытя DSTP_PNTIMPRT (ToolPac -> Utility -> Point Import)

Это где такое набрать нужно? Я не совсем понял

[ытя]

DSTP_PNTIMPRT - в командной строке, это команда пакета ToolPac

[OxYGeN]

эксель строить диаграммы может.. попробуй там построить и в кад просто вставить.

[Дима_]

Не про то - чтобы построить график - нужны координаты точек Х Y - где они в этой таблице?

[Railnolds]

Сообщение от ытя DSTP_PNTIMPRT - в командной строке, это команда пакета ToolPac

Это стандартный пакет Автокада или отдельный? Если отдельный, то где можно взять?

Сообщение от OxYGeN эксель строить диаграммы может.. попробуй там построить и в кад просто вставить.

Просто как рисунок вставить? Мне надо, чтобы был Автокадовский рисунок. На него ещё цикл нанести надо будет и другую инфу.

[Railnolds]

Сообщение от Дима_ Не про то - чтобы построить график - нужны координаты точек Х Y - где они в этой таблице?

Ну возьми для примера: первая колонка это Х, а вторая - Y.

[ытя]

http://dwg.ru/dnl/348

[Дима_]

В общем если с тулпаком не прокатит (я его не знаю) - напишу прожку, сейчас просто времени мало.

[Хмурый]

По-простому.
Если формат представления точек типа 0.12,123.54 , то есть такой-же, как у тебя предстален в сообщении #5- то скопируй эти данные в буфер обмена из txt-файла. В AutoCAD'е дай команду _spline и на запрос "Укажите точку" - скопируйте содержимое буфера обмена в командную строку.

[Railnolds]

Сообщение от Хмурый По-простому. Если формат представления точек типа 0.12,123.54 , то есть такой-же, как у тебя предстален в сообщении #5- то скопируй эти данные в буфер обмена из txt-файла. В AutoCAD'е дай команду _spline и на запрос "Укажите точку" - скопируйте содержимое буфера обмена в командную строку.

Пробовал сделать, как ты посоветовал - почему-то вместо сплайна получается текстовое поле с содержимым буфера обмена, т.е. с цифрами

[Railnolds]

Сообщение от Дима_ В общем если с тулпаком не прокатит (я его не знаю) - напишу прожку, сейчас просто времени мало.

Попробую с Тулпаком. Я тоже думал, что можно программку какую-то написать, только вот я с этим языком вообще не дружен - никогда ничего на нём не писал. Если будет время - напиши - буду очень благодарен.

[Railnolds]

Сообщение от ытя http://dwg.ru/dnl/348

Спасибо, попробую.

[Дима_]

Согласно предыдущий обещаний:

(defun c:spl ( / X Y lst f tmp osmode)
(setq f (open "c:\\data.txt" "r")
tmp (read-line f)
osmode (getvar "osmode"))
(while (/= tmp nil)
(setq lst (append lst (list (list (read tmp) (read (subafterspace tmp)))))
tmp (read-line f))
);end of while
(close f)
(setvar "osmode" 0)
(apply 'command (append '("_spline") lst '("" "" "")))
(setvar "osmode" osmode)
(princ)
);end defun

(defun SubAfterSpace (str / i)
(setq i 1 strin str)
(while (/= (substr str i 1) " ") (setq i (1+ i)))
(substr str (1+ i))
);end defun

Запускать командой "spl" данные в файле "c:\data.txt" в два столба (XY), разделенные одним пробелом.

[Railnolds]

To Дима_
А сама программа в каком файле должна быть сохранена? Я совсем с Автокадовским языком не дружу - можешь выложить уже готовый файл с программой? Если не трудно.

[zenon]

Сообщение от Railnolds To Дима_ А сама программа в каком файле должна быть сохранена? Я совсем с Автокадовским языком не дружу - можешь выложить уже готовый файл с программой? Если не трудно.

Читай FAQ

[Railnolds]

Сообщение от Дима_ Запускать командой "spl" данные в файле "c:\data.txt" в два столба (XY), разделенные одним пробелом.

После выполнения команды Автокад грузит проц и ничего не происходит.

Сообщение от zenon Читай FAQ

Спасибо, почитал