McNeel Wiki
등각투영 뷰 (Isometric View) 만들기
편집 · 인쇄 · 도움말 · 모든 항목
메뉴

AccuRender

Bongo

Brazil r/s

Flamingo

Penguin

Rhino 블로그

Rhino

Rhino Labs

검색

언어

Česky

Deutsch

English

Español

Français

Italiano

Polish

日本語

한국어

中文(繁體)

中文(简体)

 
.
DeveloperRhinoScript
Version4.0
SummaryRhinoScript 를 사용하여 등각투영 뷰 만들기

질문

AutoCAD 의 VPOINT 명령은 모델의 등각투영 뷰 (Isometric View)를 만듭니다. Rhino 에도 유사한 기능이 있습니까?

답변

VPOINT 명령은 사용자가 입력한 점을 사용하여 벡터를 만들며, 이 벡터는 도면이 보이는 방향을 정의합니다. Rhino 에서는 ViewportProperties 명령을 사용하여 이와 같은 기능을 실행할 수 있습니다. ViewportProperties 대화 상자에서, 먼저 뷰를 평행 투영 (parallel projection) 으로 설정합니다. 그 후, 대상 위치를 0,0,0 으로 설정하고 카메라 위치를 사용자가 모델을 바라보는 위치로 설정합니다.

이 과정이 번거롭다면, 다음의 RhinoScript subroutine 을 사용하셔도 좋습니다:

  Sub VPoint


    Dim strView
    strView = Rhino.CurrentView
    If Rhino.ViewProjection(strView) = 2 Then
      Rhino.Print "Viewport must be set for parallel projection."
      Exit Sub
    End If


    Dim arrOptions
    arrOptions = Array("NE Isometric", "NW Isometric", "SE Isometric", "SW Isometric", "User Defined")


    Dim strOption
    strOption = Rhino.ListBox(arrOptions, "Select viewing direction", "VPoint")
    If IsNull(strOption) Then Exit Sub


    Dim arrCamera
    Select Case strOption
      Case "NE Isometric" arrCamera = Array( 1, 1,1)
      Case "NW Isometric" arrCamera = Array(-1, 1,1)
      Case "SE Isometric" arrCamera = Array( 1,-1,1)
      Case "SW Isometric" arrCamera = Array(-1,-1,1)
      Case Else arrCamera = Rhino.GetPoint("View point")
    End Select


    If Not IsArray(arrCamera) Then Exit Sub


    Dim arrTarget, v
    arrTarget = Array(0,0,0)
    v = Rhino.VectorCreate(arrCamera, arrTarget)
    If Rhino.IsVectorTiny(v) Then Exit Sub


    Rhino.EnableRedraw False    
    Rhino.ViewCameraTarget strView, arrCamera, arrTarget
    Rhino.ZoomExtents strView
    Rhino.EnableRedraw True


  End Sub
이름 바꾸기 · 변경 · 히스토리 · 구독 · 찾기 · 참조 · 파일 업로드