• kris
  • Восстановленный участник
  • На форуме с 10 сентября 2004г.
  • Сообщений: 9
  • Спасибо: 0

Тема: Кривая по точкам

Добрый день,
Уважаемые!
Не подскажите есть ли в AutoCad'е
функция построения кривой по точкам -
- Точкам взятым из таблицы Excel или txt файла
Знаю есть такая вещь в SolidWorks'е

  • nivas
  • Восстановленный участник
  • На форуме с 11 октября 2002г.
  • Сообщений: 139
  • Спасибо: 0

Re: Кривая по точкам

функции такой нет, но можно выкрутится лиспом. текстовый файл д.б. в формате:
координатаХ координатаY
(defun C:points2pline()
  (setq oldosm(getvar "osmode"))
  (setvar "cmdecho" 0)
  (setvar "osmode" 0)
  (setq fnam (getfiled "Выберите файл" "" "txt" 16))
  (if
     (setq desf (open fnam "r"))
    (progn
      (command "pline")
      (while
  (setq cord(read-line desf))
  (command (read(strcat "(" cord ")")))
  )
      (command "")
      (close desf)
      )
    )
  (setvar "osmode" oldosm)
(princ)
  )
копирайт не мой, а кого-то из конференции lisp откуда я и стянул этот лисп, за что ему огромное спасибо :)