[Сет]

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

Вот как выглядит полный текст программы:

Код:

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

 (defun c:cs_calculate_weight (/ ss sorted ss_length i block attributes attribute sum_weight weight nof)  
(if (= (type (setq ss (vl-catch-all-apply (function (lambda () (ssget '((2 . "СпецСтр")))))))) 'pickset)
	(setq sorted (vl-sort (
		(lambda (/ tab item)
			(repeat
			        (setq tab  nil
				item (sslength ss)
				) ;_ end setq
				(setq tab (cons (ssname ss (setq item (1- item))) tab))
			) ;_ end repeat
		) ;_ end of LAMBDA
		)
		(function (lambda (a b) (> (caddr (assoc 10 (entget a))) (caddr (assoc 10 (entget b))))))
	)) ;_ end of vl-sort
) ;_ end of if
(setq ss_length (sslength ss))
(setq sum_weight 0) 
(setq i 0)
(repeat ss_length
	(setq block (vlax-ename->vla-object (nth i sorted)))
	(setq attributes (vlax-variant-value (vla-GetAttributes block)))
	(setq nof (atof (vl-string-translate "," "." (vla-get-TextString (vlax-safearray-get-element attributes 3)))))
        (setq weight (atof (vl-string-translate "," "." (vla-get-TextString (vlax-safearray-get-element attributes 4)))))
	(setq sum_weight (+ sum_weight (* nof weight)))
	(setq i (1+ i))
) ; repeat
(princ (strcat "Общая масса: " (rtos sum_weight)))
(alert (strcat "Общая масса: " (rtos sum_weight)))
(princ)  
) ; defun

Имя блоков строк спецификации - "СпецСтр". Сейчас мне нужно в набор блоков включить еще один - "СпецСтрИзд". Он отличается от "СпецСтр" только взаимным расположением атрибутов. Как я понимаю набор из блоков формируется в этом фрагменте кода:

Код:

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

 (if (= (type (setq ss (vl-catch-all-apply (function (lambda () (ssget '((2 . "СпецСтр")))))))) 'pickset)
	(setq sorted (vl-sort (
		(lambda (/ tab item)
			(repeat
			        (setq tab  nil
				item (sslength ss)
				) ;_ end setq
				(setq tab (cons (ssname ss (setq item (1- item))) tab))
			) ;_ end repeat
		) ;_ end of LAMBDA
		)
		(function (lambda (a b) (> (caddr (assoc 10 (entget a))) (caddr (assoc 10 (entget b))))))
	)) ;_ end of vl-sort
) ;_ end of if

Как мне в этот набор добавить еще и "СпецСтрИзд"?

[===AAA===]

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

И в обработчике ошибок принудительное закрытие открытых
файлов тоже не грех сделать...

[Сет]

Сообщение от Сергей812 Плюс еще переопределяете стандартные функции своими переменными

То, что я использую переменную с таким именем (type) - может влиять на что-то?

----- добавлено через ~3 мин. -----

Сообщение от Сергей812 просто по нормальному не должно быть ожидания ввода от пользователя во время работы с файлом, либо серьезно обкручивать интерфейс проверками.

Простого пути здесь нет? Вот в том же С++ я бы обернул код такой оболочкой:

Код:

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

 try
{
//исполняемый код
}
catch (...)
{
//обработка любых возникаемых ошибок
}

и это бы перехватывало все возможные ошибки. В обработчике можно было бы поставить освобождение занимаемой памяти, закрытие файлов и т.д. Не знаю как такое в лиспе сделать.

[Сергей812]

Сообщение от Сет Не знаю как такое в лиспе сделать.

Использование функции vl-catch-* (vl-catch-all-apply и т.д.).
Offtop: Вот видите, вы уже знаете - как обрабатывали бы ошибки в C# (аналогичные конструкции либо использование using, которая по сути упрощенная запись try... внутри себя). А лисп - вы даже не знаете, куда смотреть в справку, судя по вопросам.

----- добавлено через ~14 мин. -----

Сообщение от Сет То, что я использую переменную с таким именем (type) - может влиять на что-то?

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

[ciril]

Сообщение от Кулик Алексей aka kpblc ciril, type - зарезервированное слово.

Поэтому можно только порадоваться за того, кто писал cs_numeration: зарезервированный символ использовал в качестве переменной и оставил в качестве глобальной.
Потому как, кроме здравого смысла и общих параметров среды ничего не может помешать написать вот так:

Код:

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

 ((lambda (fun args) (fun args))
 (lambda (args) (and args (print (list (setq set (car args)) (set 2 8))) (fun (cdr args))))
 (list + - * /))

А если vlide не запускать, а лисп с подобным просто загружать, то и параметры среды не помогут.

[===AAA===]

Не знаю как такое в лиспе сделать.

Еще можно *error* переопределить.

[Сет]

Сообщение от Сергей812 просто не используйте зарезервированные слова для имен переменных/функций - если можно обойтись без этого

Ну у меня просто очень поверхностные знания по лиспу, никогда не было необходимости его изучать углубленно. И эти функции во многом писал по подсказкам, по-моему даже на этом форуме. Ну, свое что-то добавлял только. Так что такие косяки с объявлением глобальных переменных, когда это не нужно, а также с использованием зарезервированных символов - в моем случае более чем возможно

[ciril]

Сообщение от Сет То, что я использую переменную с таким именем (type) - может влиять на что-то?

После присвоения символу значения - при вычисления символа используется присвоенное значение.
Если символ локальный, то в функции, в которой он локальный. А если глобальный - то во всем сеансе акада.
Вы, чтобы на такие грабли не наступать, почитайте первые несколько глав Полещука.

[Сет]

Сообщение от ciril Если символ локальный, то в функции, в которой он локальный. А если глобальный - то во всем сеансе акада.

Ну я же правильно понимаю, что при таком объявлении функции

Код:

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

 (defun myfunc (/ a d) ... )

переменные a и d - локальные? Если там будет объявлена переменная type - то после выполнения функции глобальное значение символа type остается без изменений?

[ciril]

Сообщение от Сет переменные a и d - локальные? Если там будет объявлена переменная type - то после выполнения функции глобальное значение символа type остается без изменений?

Именно так.
Только прислушайтесь к совету Сергей812, не используйте без необходимости зарезервированные символы, они обычно синим, знаете ли, подсвечиваются
И прочтение Полещук "AutoLISP и Visual Lisp в среде AutoCAD" 1.1-1.2 и 1.13 вам необходимо.

----- добавлено через ~25 мин. -----

Сообщение от Сет Как бы мне по простому отлавливать всяческие ошибки в этом коде и автоматически закрывать файл spec.txt в случае их возникновения

По простому - это читать весть spec.txt в список, закрывать его и потом уже работать со списком, ну и хоть какая-то синхронизация записи в spec.txt и чтение из него (только specbfication.exe должна после освобождения дескриптора spec.txt создавать, пусть и пустой the-end.txt):

Код:

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

 ((lambda (dsk / str)
   (while (setq str (read-line dsk)) (setq result (append result (list str))))
   (close dsk))
  (progn (startapp "c:\\Работа\\Программирование\\Спецификации\\Win32\\Debug\\Specification.exe")
         (while (not (or (vl-file-delete "D:\\MyAutoCAD\\the-end.txt")
                         (initget "Да Нет")
                         (eq "Нет" (getkword "\nЖдать закрытия файла spec.txt [Да /Нет]: <Да> "))))
           (repeat 1000000))
         (open "D:\\MyAutoCAD\\spec.txt" "r")))

[Сет]

Кстати после добавления локальной переменной type в объявление функции cs_add_specification ошибок с подсчетом суммы функцией cs_calculate_weight больше не возникает. Похоже именно в этом была загвоздка.

[ciril]

Сообщение от Сет Похоже именно в этом была загвоздка.

Если бы у тебя type в каком-нибудь лиспе использовалось, а проверка сейчас была не (= type 'pickset), то искать ошибку можно было бы о-очень до-олго