[mankurt]

Здравствуйте, дорогие форумчане!
Пишу программу заполнения контуров условными знаками. Нужно, чтобы она работала и для чертежей, развернутых в соответствии с UCS.
Проблема возникает, когда UCS не названа (Unnamed в UCSMAN), например, когда нужно временно развернуть чертеж по контуру и заполнить его усл. знаками с поворотом относительно временной UCS. Для определения текущей CS и разворота относительно WCS использую следующую конструкцию:

Код:

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

 
(defun tim:UCSangle (/ q)

       (if (not(= (getvar 'WORLDUCS) 1))
 
           (setq q (vlax-safearray->list(vlax-variant-value(vla-get-XVector (vla-get-ActiveUCS active_document))))
                    q (angle '(0 0 0) q)
           )
           (setq q 0)
       )
 )

Если UCS "Unnamed", то не получается получить свойство XVector. UCS как бы есть (чертеж развернут), но в объектной модели чертежа вроде бы и не прописан. Возникает ошибка
"Automation Error. Null object ID".

Подскажите, как можно обойти ошибку и получить свойства неназванной UCS?

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

UCSXDIR ?

[mankurt]

Сообщение от Кулик Алексей aka kpblc UCSXDIR ?

Действительно, все оказалось проще, чем я думал. Спасибо большое! )