[Елпанов Евгений]

Столкнулся с ошибками в автолиспе под 2008 автокад.
Решил выложить...
пример простого кода:

Код:

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

(setq i 0 l nil)
(repeat	2000
  (setq l (cons (list i (setq i (1+ i))) l))
)

добавит в переменную l список из 2000 под списков с двумя числами в каждом.

Код:

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

(setq mi (apply (function mapcar)(cons (function min)l))) ;; >> '(0 1)
(setq ma (apply (function mapcar)(cons (function max)l))) ;; >> '(1999 2000)

в переменных появятся габариты всего облака точек...
короче, стандартный код, ничего нового, давно изучен и применяется по всему миру...

Код:

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

(setq i 0 l nil)
(repeat	20000
  (setq l (cons (list i (setq i (1+ i))) l))
)
(setq mi (apply (function mapcar)(cons (function min)l)))

возвращает

Код:

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

; warning: unwind skipped on exception
; error: Exception occurred: 0xC0000005 (Access Violation)
; error: Exception occurred: 0xC0000005 (Access Violation)
; error: Exception occurred: 0xC0000005 (Access Violation)
; error: Exception occurred: 0xC0000005 (Access Violation)

[Елпанов Евгений]

разбор ошибок, дал вариант их обхода, но это еще не знание...
пример для акада 04:

Код:

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

(progn
  (alloc 65000)
  (expand 1000)
  (setq	i 0
	l nil
  )
  (repeat 25000
    (setq l (cons (list i (setq i (1+ i))) l))
  )
  (gc)
  (alloc 65535)
  (expand 1000)
  (expand 1000)
  (princ
    (setq lst-min-max
	   (list (apply (function mapcar) (cons (function min) l))
		 (apply (function mapcar) (cons (function max) l))
	   )
    )
  )
  (princ)
)

пример для акада 08:

Код:

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

(progn
  (alloc 65000)
  (expand 1000)
  (setq	i 0
	l nil
  )
  (repeat 25000
    (setq l (cons (list i (setq i (1+ i))) l))
  )
  (gc)
  (alloc 65000)
  (expand 1000)
  (princ
    (setq lst-min-max
	   (list (apply (function mapcar) (cons (function min) l))
		 (apply (function mapcar) (cons (function max) l))
	   )
    )
  )
  (princ)
)

Кто может подсказать, как можно точно рассчитывать аргументы для функций 'alloc и 'expand?

[ShaggyDoc]

Когда-то, в AutoCAD-10, они были актуальны. Но аргументы, насколько я помню, просто опытным путем подбирались.

Ошибка 0xC0000005 связана с памятью. Причин может быть множество. Иногда проявляется в разных местах, но в другой версии AutoCAD в этом же месте может исчезнуть. Скорее всего связано с непарным созданием/освобождением переменных. Единственное спасение - танцы с бубном.

[Кулик Алексей aka kpblc]

ДОстаточно тупой вариант "обхода":

Код:

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

(defun test01 (/ i l mi)
  (setq	i 0
	l nil
	) ;_ end of setq
  (repeat 20000
    (setq l (cons (list i (setq i (1+ i))) l))
    ) ;_ end of repeat
  (gc)
  (setq mi (apply (function mapcar) (cons (function min) l)))
  ) ;_ end of defun

Сработал на 2006-м без вопросов

[Vov.Ka]

Код:

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

(setq mi (apply (function mapcar)(cons (function min)l)))

для списка длинок 20000 на автокад 2005 получаю Exception только первые 6 раз, на седьмой ошибка исчезает. видно к этому времени автокад сам перераспределяет память.

[Alaspher]

Часть ошибок работы с памятью проявляется только в некомпилированых ЛИСПах, особенно это касается длинных списков и рекурсии. В том числе изза этого я стал компилировать любые, даже самые мелкие утилиты.

[Елпанов Евгений]

Сообщение от Alaspher Часть ошибок работы с памятью проявляется только в некомпилированых ЛИСПах, особенно это касается длинных списков и рекурсии. В том числе изза этого я стал компилировать любые, даже самые мелкие утилиты.

Я тоже так думал, пока не столкнулся со сложной ошибкой - возникала только в скомпилированном файле, при вызове из не скомпилированного - все работало (акад 2008)...
Искал с помощью vl-propagate, т.е. запоминал состояние необходимых переменных вне vlx и после вылета программы, начинал отладку с ними.
Жаль, небыло времени разбираться, в каком именно месте возникает ошибка - но точно ясно, что ее корни в точности, т.е. скомпилированная и не скомпилированная программа, по разному округляют...