[solo123]

Менял Target ничего не выходит : (vlax-put-property (vla-get-ActiveViewport(vla-get-Document (vla-get-ModelSpace(vla-get-ActiveDocument
(vlax-get-acad-object))))) "Target" (vlax-3D-point 200.0 300.0 400.0))

[gomer]

Вероятно нужно еще задать направление и регенерировать видовой экран

[solo123]

Спасибо за подсказку, но у меня вопрос, а как вообще можно изменять такие свойства как:Origin Target или Center (на простом примере)

Пытался сделать так:

Код:

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

 ( DEFUN c:sam ( / )
(vl-load-com)
(setq acad_application (vlax-get-acad-object))
(setq active_document (vla-get-ActiveDocument acad_application))
(setq model_space (vla-get-ModelSpace active_document))




(setq vv (vlax-3D-point (reverse(vlax-safearray->list (vlax-variant-value(vlax-get-property  model_space "Origin"))))))



(vlax-put-property model_space  "Origin " vv)
)

не получается.
Например свойство Width меняется просто:

Код:

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

 (vlax-put-property (vla-get-Document 
(vla-get-ModelSpace(vla-get-ActiveDocument (vlax-get-acad-object)))) "Width" 1000)

[gomer]

Сообщение от solo123 не получается.

что именно не получается? какая ошибка выскакивает?

[solo123]

; error: ActiveX Server returned the error: unknown name: Origin


Если я правильно понимаю регенерировать экран, это функция: redraw .
А, как задать направление? Это задать вектор направления? Eсли да, то какое свойство за это отвечает?

[gomer]

у ModelSpace нет свойства Origin

[solo123]

Спасибо, понял. Последний вопрос: какие типы данных должны здесь быть:

Код:

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

  ( DEFUN c:sam ( / )
(vl-load-com)
(setq acad_application (vlax-get-acad-object))
(setq active_document (vla-get-ActiveDocument acad_application))
(setq model_space (vla-get-ModelSpace active_document))

 (vlax-put-property (vla-get-ActiveViewport(vla-get-Document  model_space ))"LowerLeftCorner"(list -500.0 

-500.0))

 (vlax-put-property (vla-get-ActiveViewport(vla-get-Document  model_space )) "UpperRightCorner"(list  

500.0  500.0))







)

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

Variant из безопасного массива.