[hseldon]

помогите нарисовать точку по координатам, заданным переменными

[nik_mb]

В простейшем виде - (command "_point" точка1), в сложном - (vla-addPoint mspace (vlax-3d-point точка1)), в последнем случае надо определить переменную mspace. А в чем проблема?

[hseldon]

не знаю как правильно задавать примитивы в AutoLISP
точка представлена в таком виде
3,12.4840666596,12.1202384252,164.3417715745,
разбил на части, выделил координаты, а нарисовать не могу

[nik_mb]

Сообщение от hseldon не знаю как правильно задавать примитивы в AutoLISP

Негде прочесть? Или непонятно написано?

[hseldon]

посмотрел все что мог, везде только операции над примитивами, и нигде нет определения

[nik_mb]

Сообщение от hseldon посмотрел все что мог, везде только операции над примитивами, и нигде нет определения

Точка на плоскости определяется списком координат х, у (setq точка (list P_x P_y)). Наугад, через поиск яндекса нашел http://kappasoft.narod.ru/info/acad/lisp/a_lisp.htm#4 или http://www.codenet.ru/progr/alisp/05.php еще http://www.reflist.ru/doc/18009.shtml

[VVA]

Здесь найдешь то что нужно.
Создание графика в AutoCAD на основе txt или xls файла

[hseldon]

мне нужно конкретное описание примитивов, способы определения и прорисовки в autocad, а не функции их обработки

[nik_mb]

Сообщение от hseldon мне нужно конкретное описание примитивов, способы определения и прорисовки в autocad, а не функции их обработки

Если запустить строку (entget (ssname (ssget) 0)) узнаешь конкретное описание выбранного примитива автокадом. Хотя, возможно, ты имешь ввиду что-то другое? Я, честно, не понимаю слов "способы определения и прорисовки" - как определишь (опции команды для прорисовки, слой, цвет, толщину, высоту), так и прорисуется. Ранее приводил пример определения для прорисовки примитива "точка (point)".

Сообщение от hseldon точка представлена в таком виде 3,12.4840666596,12.1202384252,164.3417715745,

(setq point1 (list 3 12.4840666596))(setq point2 (list 12.1202384252 164.3417715745)) - как конкретный вариант.
Есть еще в справке (но уже по англицки) "Command Submission".

[hseldon]

3,12.4840666596,12.1202384252,164.3417715745
3, номер точки
12.4840666596, координата x
12.1202384252, координата y
164.3417715745 высота точки
я разбиваю строку на части n, x, y, h
нужно нарисовать точку с координатами (x,y)

[nik_mb]

Так -(command "_point" '(12.4840666596 12.1202384252 164.3417715745)). Или я что-то недопонимаю?

[hseldon]

данные находятся в файле, и получаю я их в форме n x y h

[zamtmn]

Если нужно только нарисовать точки с координатами из файла, а не написать программу для этого, то есть готовое решение - команда DSTP_PNTIMPRT из пакета toolpac

[nik_mb]

Сообщение от zamtmn Если нужно только нарисовать точки с координатами из файла, а не написать программу для этого, то есть готовое решение - команда DSTP_PNTIMPRT из пакета toolpac

На странице http://forum.dwg.ru/showthread.php?t=1025 про toolpac пишут, что его негде взять бесплатно.

Сообщение от hseldon данные находятся в файле, и получаю я их в форме n x y h

Так надо научиться открывать файл, считывать строки, эти строки преобразовывать в числовые данные, а данные подставлять для отрисовки примитивов. Можно этому не учиться, а купить toolpac.

[hseldon]

я имею в виду что у меня уже есть n x y h, и теперь мне надо нарисовать точкку (x,y)

[nik_mb]

Сообщение от hseldon я имею в виду что у меня уже есть n x y h, и теперь мне надо нарисовать точкку (x,y)

На вопрос "отрисовка примитивов по координатам из файла" я привел несколько примеров. Что, точка не рисуется по последнему примеру?

[hseldon]

вот мой код

Код:

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

(defun c:read_file ()
       (findfile "933 км.txt")
  (setq f (open "933 км.txt" "r"))

  (setq a1 (read-line f))
  
  (setq n1 (vl-string-position 44 a1))
  (setq no (substr a1 1 n1))
  (setq a1 (vl-string-left-trim no a1))
  (setq a1 (vl-string-left-trim "," a1))

  (setq n1 (vl-string-position 44 a1))
  (setq x1 (substr a1 1 n1))
  (setq a1 (vl-string-left-trim x1 a1))
  (setq a1 (vl-string-left-trim "," a1))

  (setq n1 (vl-string-position 44 a1))
  (setq y1 (substr a1 1 n1))
  (setq a1 (vl-string-left-trim y1 a1))
  (setq a1 (vl-string-left-trim "," a1))

  (setq h1 (vl-string-right-trim "," a1))

  (setq v (list x1 y1))
  (command "point" v)
    
)

читает строку 3,12.4840666596,12.1202384252,164.3417715745
а точку не рисует

[VVA]

hseldon, Неужели нельзя посмотреть, что у тебя в переменной v не список чисел, а список текстов. Найди 1 отличие.

Код:

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

(defun c:read_file ()
       (findfile "933 км.txt")
  (setq f (open "933 км.txt" "r"))

  (setq a1 (read-line f))
  
  (setq n1 (vl-string-position 44 a1))
  (setq no (substr a1 1 n1))
  (setq a1 (vl-string-left-trim no a1))
  (setq a1 (vl-string-left-trim "," a1))

  (setq n1 (vl-string-position 44 a1))
  (setq x1 (substr a1 1 n1))
  (setq a1 (vl-string-left-trim x1 a1))
  (setq a1 (vl-string-left-trim "," a1))

  (setq n1 (vl-string-position 44 a1))
  (setq y1 (substr a1 1 n1))
  (setq a1 (vl-string-left-trim y1 a1))
  (setq a1 (vl-string-left-trim "," a1))

  (setq h1 (vl-string-right-trim "," a1))

  (setq v (list x1 y1))
  (setq v (mapcar 'atof v))
  (command "_point" "_non" v)
)

[nik_mb]

Подправил ошибки. Теперь код такой

Код:

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

 
(defun c:read_file ()
       (findfile "933 км.txt")
  (setq f (open "933 км.txt" "r"))
  (setq a1 (read-line f))
  (close f)
  (setq n1 (vl-string-position 44 a1))
  (setq no (substr a1 1 n1))
  (setq a1 (vl-string-left-trim no a1))
  (setq a1 (vl-string-left-trim "," a1))
  (setq n1 (vl-string-position 44 a1))
  (setq x1 (substr a1 1 n1))
  (setq x1_c (atof x1 ))
  (setq a1 (vl-string-left-trim x1 a1))
  (setq a1 (vl-string-left-trim "," a1))
  (setq n1 (vl-string-position 44 a1))
  (setq y1 (substr a1 1 n1))
  (setq y1_c (atof y1))
  (setq a1 (vl-string-left-trim y1 a1))
  (setq a1 (vl-string-left-trim "," a1))
  (setq h1 (vl-string-right-trim "," a1))
  (setq v (list x1_c y1_c))
  (command "_point" v)
 
)

ЗЫ пока писал ответ не увидел предыдущий пост, короче. Пускай мой будет как вариант.

[hseldon]

Команда: read_file
; error: bad argument type: FILE nil

не знаю что делать