[sdv79]

Необходимо динблок через дан.свойство повернуть. В МСК это 0 или 90. Хочу узнать угол поворота ПСК, и сделать приращение.

Код:

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

 
   (vlax-put-property ; правильно поварачиваем
     (nth 0 ; 0 отвечает за угол поворота
      (safearray-value(vlax-variant-value ; дешефратор
       (vla-GetDynamicBlockProperties
        (vlax-ename->vla-object
         (entlast)
        ) ;/ vlax-ename->vla-object
       ) ;/ vla-GetDynamicBlockProperties
      )) ;/ safearray-value
     ) ;/ nth
     (function value)
     corner
;;;      (if(>= side_X side_Y) ; = привычней для квадрата ориентация по горизонтали
;;; ;|1|; 0.0
;;; ;|2|; corner ; 1.5708 ; угол в радианах
;;;      ) ;/ if
    ) ;/ vlax-put-property

[Kirill_Ja]

Тебе читать тут и еще можно тут если шаришь в геометрии

[sdv79]

Kirill_Ja спасибо, но не то. Везде используют именную ПСК, к ней еще есть доступ. В моем же случае, пользователь просто поворачивает СК вдоль помещения, расставляет светильники и обратно в МСК.

Код:

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

 
(tblnext "UCS") ; nil
(vla-get-activeUCS(vla-get-activedocument(vlax-get-acad-object))) ; говорит об ошибке
(vla-get-UserCoordinateSystems(vla-get-activedocument(vlax-get-acad-object))) ; тупиковая ветка развития

ПОБЕДА, нашел простое решение

Код:

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

 
(angtos 
 (angle
  (list 0.0 0.0 1.0) 
  (getvar "UCSXDIR")
 )
)

PS: обновил программу mySchema, с учетом этих изменений...