[Railnolds]

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

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

Спасибо.

[Дима_]

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

(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

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