[Kirill_Ja]

Вылавливаю сейчас ошибку. Она возникает не постоянно, а где-то в 30% случаев.
При этом не возникает когда я пошагово выполняю "сбойную" функцию.

Можно как-то после возникновения ошибки и вылета из выполнения основной функции
увидеть в каком именно месте кода произошла ошибка и получить больше информации, чем дает
"Причина последнего останова" (так называется в меню русской локализации VLIDE).

И вообще как-то получать место ошибки при выполнении кода не по шагам.

[ShaggyDoc]

Простейший способ - вставлять в подозрительных местах вывод сообщений. Например

Код:

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

 (defun ru-msg-debug	(n /)
    (if	*ru_msg_debug*
	(princ (strcat "\nru-msg-debug: >>>> Точка отладки N ** " (itoa n) " <<<< \n"))
    ) 
)

Глобальная *ru_msg_debug* введена для того, чтоы включать режим отладки.
Можно и более изощренно сделать

Код:

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

 (defun ru-msg-print (msg var n)
  ;; печать в режиме отладки сообщения MSG, значения переменной VAR и
  ;; задержкой на N
  ;; секунд
  (if *ru_msg_debug*
    (progn
      (princ "\n** ОТЛАДОЧНОЕ ПРЕРЫВАНИЕ **\n")
      (princ msg)
      (princ "\nПеременная: ")
      (princ var)
      (princ "\nЗначение: ")
      (princ (eval var))
      (princ "\nТип: ")
      (princ (type (eval var)))
      (if n   (ru-time-wait n)   (getstring "\nЖми пробел для продолжения...")) 
      (princ "\n**     ПРОДОЛЖЕНИЕ       **\n")
    ) 
  ) 
  (princ)
)

Это будет "не по шагам" и с выводом нужной информации.
"Больше информации" можно получать "отправляя" в AutoCAD имена переменных - будет возвращаться из значение. Ну и штатные средства.

[Do$]

Есть еще трассировка, которая позволяет отследить путь возникновения ошибки от функции самого верхнего уровня. Если знаешь, где возникает ошибка ("причина последнего останова"), можно понаставить ловушек в этом месте, пройти его пошагово, проверяя все значения переменных. Ну и т.д. и т.п.

[Олег (jr.)]

;;;Tony Tanzillo said...
;;;
;;;
;;;There's no need to use the Visual LISP IDE to find errors. I haven't used the Visual LISP IDE for close to 10 years.
;;;
;;;This will show the source of the error:

(defun *error* (msg)
(vl-bt)
)

;;;Example:
;;;
;;;Command:
(defun *error* (s) (vl-bt))
;*ERROR*

;Command:
(defun C:BUGGY()
(setq a (getint "\nEnter a number: "))
(setq b (/ a 0))
(princ))
(C:BUGGY)

[Kirill_Ja]

Отладочное сообщение - то, что надо. Немного переписал под себя и решение легко нашлось.
Спасибо.