Rhino에서 AutoCAD XLine 활용하기

! _-RunScript (
Dim startPoint, endPoint, direction, largeNumber, lineStart, lineEnd
startPoint = Rhino.GetPoint("첫 번째 위치를 클릭하세요.")
If Not IsNull(startPoint) Then
endPoint = Rhino.GetPoint("두 번째 위치를 클릭하세요.")
If Not IsNull(endPoint) Then
direction = Rhino.VectorUnitize(Rhino.VectorCreate(endPoint, startPoint))
largeNumber = 1000000
lineStart = Rhino.PointAdd(startPoint, Rhino.VectorScale(direction, -largeNumber))
lineEnd = Rhino.PointAdd(startPoint, Rhino.VectorScale(direction, largeNumber))
Rhino.AddLine lineStart, lineEnd
Else
Rhino.Print "두 번째 위치가 선택되지 않았습니다."
End If
Else
Rhino.Print "첫 번째 위치가 선택되지 않았습니다."
End If
)