Jak znaleźć punkt centralny widoku obróconej rzutni
W poprzednim wpisie opisałem sposoby ustawienia centrum widoku wstawionej w arkuszu papieru rzutni. W tym opiszę jak znaleźć właściwe współrzędne X i Y w WCS (globalnym układzie współrzędnych) rzutni z obróconym widokiem. Przyjmijmy, że potrzebujemy ustawić widok w rzutni obrócony o 60° z centralnym punktem widoku we współrzędnych X: 20, Y:15 . Użyjmy poniższej funkcji: ( defun mc-setV ( / vp XDataType XDataValue ) ( setq vp ( vlax-ename->vla-object ( car ( entsel )))) ;pick viewpoport object ( vla-put-TwistAngle vp ( * pi ( / -60.0 180.0 ))) ;put twist angle property in radians ( vla-put-ViewPortOn vp :vlax-false ) ;turn off viewport ( vla-GetXData vp "ACAD" ' XDataType ' XDataValue ) ;get xData "ACAD" from object ( vlax-safearray-put-element XDataValue 8 20 ) ;put X coord in the safe array ( vlax-safearray-put-element XDataValue 9 15 ) ;put Y coord in the safe array ( vla-SetXData