[Klo]

Добрый день!
Набросал программку для рисования отрезков с длиной равной числу в тексте. Но работает через раз. Особенно часто глюк происходит с текстом 0.41 (файл примера с несколькими текстами прилагаю).
Уже голову сломал - не пойму что не так. Сначала думал, что дело в временных переменных, добавил в рабочие - не помогло. Теперь думаю: уж не сломан ли у меня autocad

Код:

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

 
(defun c:linesfromnumbers ( / i ent num coo x_coo new_coo)
  (setq ent (car (entsel))) ; выбираем текст
  (setq num (atof (cdr (assoc 1 (entget ent))))) ; извлекаем строку, преобразуем в число
  (setq coo (cdr (assoc 10 (entget ent)))) ; записываем координаты текста (начало отрезка)
  (setq x_coo (+ (car coo) (* num 1000))) ; добавляем к координате Х число из текста с масштабным коэффициентом
  (setq new_coo (strcat (rtos x_coo) "," (rtos (nth 1 coo)))) ; собираем строку с новыми координатами (конец отрезка)
  (setq coo (strcat (rtos (nth 0 coo)) "," (rtos (nth 1 coo)))) ; преобразуем координаты начала из списка в строку
  (command "pline" coo new_coo "") ; чертим полилинию
); end defun

[P_S]

Объектную привязку отключи.

[Klo]

P_S,
спасибо большое!

[Бот]

Klo, просьба изменить название темы "Помогите найти ошибку в коде" в соответствии с п.4.3. правил форума, в противном случае тема будет закрыта через 12 часов.

Как переименовать тему?

Сообщение сгенерировано автоматически, отвечать на него не нужно

[AlexZh]

(setvar "ORTHOMODE" 0)

(setvar "ORTHOMODE" 1)

[Klo]

Можно было бы и переименовать, но лучше, если её закрыть, чтобы особо не позориться

----- добавлено через ~6 мин. -----
Спасибо, но после подсказки P_S, я сделал немного иначе:

Код:

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

 (setq osmode (getvar "osmode"))
(setvar "osmode" 0)

... мой код...

(setvar "osmode" osmode)