[Red Nova]

Доброго.
Как установить мировую коорд. систему не используя командные методы?

Аналог командным методом:

Код:

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

 (command-s "_.ucs" "_w")

В ActiveX особо не умею .
Но нашел вот это.
Длинновато. К тому же создается новая коорд. система, не WCS, а лишняя альтернатива, которая будет потом висеть в списке коорд. систем.

Код:

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

 (defun kb:UCS:NameWorld (MakeActive / localUCS)
  (or g:activedoc (setq g:activedoc (vla-get-activedocument (vlax-get-acad-object))))
  (or g:ucss
      (setq g:ucss
             (vla-get-usercoordinatesystems (vla-get-activedocument (vlax-get-acad-object))
             )
      )
  )
  (setq localUCS (vla-add g:ucss
                          (vlax-3d-point '(0.0 0.0 0.0)) ;origin
                          (vlax-3d-point '(1.0 0.0 0.0)) ;x-axis
                          (vlax-3d-point '(0.0 1.0 0.0)) ;y-axis
                          "_WorldUCS"
                 )
  )
  (if MakeActive
    (vla-put-activeucs g:activedoc localUCS)
  )
  localUCS
)

[Setvar]

Лоб расшибить, что ли, хочешь?

[Red Nova]

Сообщение от Setvar Лоб расшибить, что ли, хочешь?

Offtop: Смотря кому

[VVA]

Сообщение от Red Nova Длинновато. К тому же создается новая коорд. система, не WCS, а лишняя альтернатива, которая будет потом висеть в списке коорд. систем.

Чуть покороче, но суть та же. Подсмотрено здесь Set WCS current via vla-put functions
Новая ПСК не создается

Код:

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

(defun wcs (/ doc)
  (vl-load-com)
  (setq doc (vla-get-activedocument (vlax-get-acad-object)));active document
  (vla-put-activeucs doc
    (vla-add
      (vla-get-usercoordinatesystems doc)
      (vlax-3d-point '(0 0 0)) ;origin
      (vlax-3d-point '(1 0 0)) ;x-axis
      (vlax-3d-point '(0 1 0)) ;y-axis
      "World"
      )
    )
  )
(if (not(equal(getvar "WorldUcs") 1))(wcs))

[Red Nova]

Спасибо Мастер