[Xara]

Все доброго времени суток!
Такая проблема - в полилинии может быть поле GLOBAL WIDTH, а может и не быть, и в случае, если ее нет (например, в случае, если по концам линии заданы две разные толщины), лисп выдает ошибку:
; error: Automation Error. Invalid input
Код такой:

Код:

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

 (while (> len$lineset 0)
	(setq ent$get (entget (ssname our$lineset (setq len$lineset (1- len$lineset))))
	      our$get (Vlax-EName->Vla-Object (cdr (assoc -1 ent$get))))
	(if (vlax-property-available-p our$get "Length")
	  (setq len$len (vla-get-Length our$get))
	  (setq len$len (vla-get-Arclength our$get))
	  )
	(if (vlax-property-available-p our$get "ConstantWidth")
	  (setq glob$w (vla-get-ConstantWidth our$get)))
	(setq all$items (append all$items (list len$len glob$w))
	      glob$w 0)
	)

Как вшить функцию vlax-get-property в vl-catch-all-apply - я не знаю, он либо не считывает ничего, либо ругается...

Помогите пожалуйста разобраться, как заставить лисп записывать значение 0, если поле GLOBAL WIDTH есть, но пустое?

[VVA]

Например так

Код:

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

;;;Задать глобальную ширину полилинии 0
(_dwgru-ent-modify (car(entsel "\nSelect polyline: ")) 43 0)

Библиотечные функции смотри здесь DwgRuLispLib: Модификация ename-представлений примитивов и DwgRuLispLib: Преобразование указателя на примитив в ename

[Xara]

А программно?
Суть в том, что лисп сам выплевывает ошибку, когда выходит из куска (vla-get-ConstantWidth our$get)

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

Куда уж программней-то... Ну ладно, лови:

Код:

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

 (if (not (vl-catch-all-error-p
           (vl-catch-all-apply
             (function
               (lambda ()
                 (vla-get-constantwidth our$get)
                 ) ;_ end of lambda
               ) ;_ end of function
             ) ;_ end of vl-catch-all-apply
           ) ;_ end of vl-catch-all-error-p
         ) ;_ end of not
          ; ....

[Xara]

Алексей, спасибо тебе большое! Теперь работает!